paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 18:19:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

LazReport, fix using // comments in scripts, from Aleksey Lagunov

Browse Source 
git-svn-id: trunk@41564 -
This commit is contained in:
jesus 2013-06-06 19:20:42 +00:00
parent 9ac3807622
commit 488c99dd5e
2 changed files with 2 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
components/lazreport/source/lr_class.pas
View File

@ -6383,19 +6383,6 @@ begin
Exit; Exit;
end; end;
end; end;
{ if AnsiCompareText(Self.Name, aName) = 0 then
Result:=Self
else
begin
for i := 0 to Objects.Count - 1 do
begin
if AnsiCompareText(TfrObject(Objects[i]).Name, aName) = 0 then
begin
Result :=TfrObject(Objects[i]);
Exit;
end;
end;
end;}
end; end;
function TfrPage.FindRTObject(const aName: String): TfrObject; function TfrPage.FindRTObject(const aName: String): TfrObject;

4
components/lazreport/source/lr_intrp.pas
View File

@ -214,7 +214,7 @@ end;
procedure TfrInterpretator.SkipSpace; procedure TfrInterpretator.SkipSpace;
begin begin
while (Buf^[cur] = ' ') and (Cur < Len) do Inc(Cur); while (Buf^[cur] <= ' ') and (Cur < Len) do Inc(Cur);
end; end;
function TfrInterpretator.GetToken: String; function TfrInterpretator.GetToken: String;
@ -792,7 +792,7 @@ begin
len := 0; len := 0;
for i := 0 to MemoFrom.Count - 1 do for i := 0 to MemoFrom.Count - 1 do
begin begin
s := ' ' + MemoFrom[i]; s := ' ' + MemoFrom[i] + #13;
while Pos(#9, s) <> 0 do while Pos(#9, s) <> 0 do
s[Pos(#9, s)] := ' '; s[Pos(#9, s)] := ' ';
while Pos(' ', s) <> 0 do while Pos(' ', s) <> 0 do