Delphi/pascalscript
Delphi/pascalscript
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

0006216: Bug using array

Browse Source 
git-svn-id: http://code.remobjects.com/svn/pascalscript@110 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
This commit is contained in:
carlokok 2009-03-17 09:19:05 +00:00
parent 61af62db05
commit 767e490ebf
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Source/uPSCompiler.pas
View File

@ -8921,6 +8921,9 @@ begin
Result := False;
if Outreg is TPSValueReplace
then Outreg:=TPSValueReplace(Outreg).OldValue;
if Where is TPSValueVar then begin
if TPSValueVar(Where).GetRecCount > 0 then result := true;
end else
if Where.ClassType = TPSUnValueOp then
begin
if CheckOutReg(TPSUnValueOp(Where).Val1, OutReg) then