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

46: Variable redeclaration

Browse Source 
git-svn-id: http://code.remobjects.com/svn/pascalscript@142 5c9d2617-0215-0410-a2ee-e80e04d1c6d8
This commit is contained in:
carlokok 2009-05-13 15:20:55 +00:00
parent 1f1f21d324
commit b52b161ec4
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/uPSCompiler.pas
View File

@ -4179,7 +4179,7 @@ begin
v := VarNames; v := VarNames;
while Pos(tbtchar('|'), v) > 0 do while Pos(tbtchar('|'), v) > 0 do
begin begin
if copy(v, 1, Pos(tbtchar('|'), v) - 1) = s then if FastUppercase(copy(v, 1, Pos(tbtchar('|'), v) - 1)) = s then
begin begin
Result := True; Result := True;
exit; exit;