paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-10-30 22:01:27 +01:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, fix IF statement in scripts where conditions are in different lines, from Aleksey Lagunov

Browse Source 
git-svn-id: trunk@41762 -
This commit is contained in:
jesus 2013-06-18 14:33:05 +00:00
parent 5cc8a6210f
commit 46fc6c7b38
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
components/lazreport/source/lr_pars.pas
View File

@ -14,6 +14,9 @@ interface
{$I LR_Vers.inc} {$I LR_Vers.inc}
const
IdentifySeparator = [' ', '+', '-', '*', '/', '>', '<', '=', '(', ')', #13];
type type
TGetPValueEvent = procedure(const s: String; var v: Variant) of object; TGetPValueEvent = procedure(const s: String; var v: Variant) of object;
TFunctionEvent = procedure(const AName: String; p1, p2, p3: Variant; TFunctionEvent = procedure(const AName: String; p1, p2, p3: Variant;
@ -292,7 +295,7 @@ begin
repeat repeat
Inc(i); Inc(i);
while (i <= Length(s)) and while (i <= Length(s)) and
not (s[i] in [' ', '+', '-', '*', '/', '>', '<', '=', '(', ')']) do not (s[i] in IdentifySeparator) do
begin begin
if s[i] = '"' then Inc(n); if s[i] = '"' then Inc(n);
Inc(i); Inc(i);