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

LazReport, fixed 2.2.0 compile reported by Eduardo Lopez

Browse Source 
git-svn-id: trunk@15598 -
This commit is contained in:
jesus 2008-06-27 18:32:02 +00:00
parent c8d58add6a
commit 8aa05f1439
1 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
components/lazreport/source/sysutilsadds.pas
View File

@ -40,17 +40,24 @@ unit SysUtilsAdds;
interface
{$IFDEF UNIX}
uses
Classes, SysUtils
{$IF defined(VER2) and (FPC_RELEASE>=2)}
,CLocale
{$IF (FPC_VERSION > 2) or
((FPC_VERSION = 2)
and ((FPC_RELEASE > 2) or
((FPC_RELEASE = 2) and (FPC_PATCH >= 1))))}
{$DEFINE USECLOCALE}
{$ENDIF}
;
{$ENDIF}
{$IFDEF USECLOCALE}
uses
Classes, SysUtils,
{$info if compiler can't find clocale unit, you probably are using old 2.2.1 or 2.3.1 version, please upgrade}
CLocale;
{$ENDIF}
implementation
{$IFDEF UNIX}
{$IFDEF USECLOCALE}
procedure InitInternationalFormats;
Var i : Integer;
St : string;
@ -214,9 +221,8 @@ end;
INITIALIZATION
{$IF defined(VER2) and (FPC_RELEASE>=2)}
InitInternationalFormats;
{$ENDIF}
{$ENDIF}
end.