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

LazReport: fix compile

Browse Source 
git-svn-id: trunk@61163 -
This commit is contained in:
martin 2019-05-06 10:44:46 +00:00
parent 9e4ab0beb5
commit fec293914e
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -17,7 +17,7 @@ interface
uses
Classes, SysUtils, LResources, LazUTF8,
Graphics,GraphType, Controls, Forms, Dialogs,LR_E_TXT,
LCLType,LCLIntf,lr_utils,lr_class;
LCLType,LCLIntf, LCLProc,lr_utils,lr_class;
type
@ -75,7 +75,7 @@ end;
function CompareIntervals(Item1, Item2: Pointer): Integer;
begin
result := ComparePointers({%H-}Pointer(Item1)-{%H-}Pointer(Item2));
result := ComparePointers({%H-}Pointer(Item1), {%H-}Pointer(Item2));
end;
procedure TfrCSVExportFilter.OnEndPage;