mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-23 04:19:47 +02:00
LazReport, fix IF statement in scripts where conditions are in different lines, from Aleksey Lagunov
git-svn-id: trunk@41762 -
This commit is contained in:
parent
5cc8a6210f
commit
46fc6c7b38
@ -14,6 +14,9 @@ interface
|
||||
|
||||
{$I LR_Vers.inc}
|
||||
|
||||
const
|
||||
IdentifySeparator = [' ', '+', '-', '*', '/', '>', '<', '=', '(', ')', #13];
|
||||
|
||||
type
|
||||
TGetPValueEvent = procedure(const s: String; var v: Variant) of object;
|
||||
TFunctionEvent = procedure(const AName: String; p1, p2, p3: Variant;
|
||||
@ -292,7 +295,7 @@ begin
|
||||
repeat
|
||||
Inc(i);
|
||||
while (i <= Length(s)) and
|
||||
not (s[i] in [' ', '+', '-', '*', '/', '>', '<', '=', '(', ')']) do
|
||||
not (s[i] in IdentifySeparator) do
|
||||
begin
|
||||
if s[i] = '"' then Inc(n);
|
||||
Inc(i);
|
||||
|
Loading…
Reference in New Issue
Block a user