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

lazreport: fix compilation with fpc 2.6.4

Browse Source 
git-svn-id: trunk@52652 -
This commit is contained in:
blikblum 2016-07-10 12:10:18 +00:00
parent 4d405f5f01
commit 6e1055dabd
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
components/lazreport/source/lr_crossarray.pas
View File

@ -240,7 +240,7 @@ end;
procedure TExItem.GotoBookmark; procedure TExItem.GotoBookmark;
begin begin
FDataset.Bookmark := FBookmark; FDataset.GotoBookmark(FBookmark);
end; end;
function TExItem.IsBookmarkValid: boolean; function TExItem.IsBookmarkValid: boolean;

2
components/lazreport/source/lr_edit.pas
View File

@ -310,7 +310,7 @@ begin
frInterpretator.PrepareScript(M2.Lines, sl1, sl2); frInterpretator.PrepareScript(M2.Lines, sl1, sl2);
if sl2.Count > 0 then if sl2.Count > 0 then
begin begin
ErrorPosition(Copy(sl2.Text, Length(sErrLine)+1)); ErrorPosition(Copy(sl2.Text, Length(sErrLine)+1, Length(sl2.Text)));
ShowMessage(sl2.Text); ShowMessage(sl2.Text);
Result:=false; Result:=false;
end; end;