pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

FormatSettings : Delphi compatibility.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@2946 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2014-04-18 13:33:50 +00:00
parent 36cc7d1f4e
commit d12bca1cb6
2 changed files with 39 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
wst/trunk/imp_utils.pas
View File

@ -118,6 +118,13 @@ begin
Result := Copy(AQualifiedName,(sepPos + 1),Length(AQualifiedName));
end;
{$IFDEF HAS_FORMAT_SETTINGS}
{$IFDEF DELPHI}
var
DefaultFormatSettings : TFormatSettings absolute FormatSettings;
{$DEFINE HAS_DEFAULT_FORMAT_SETTINGS}
{$ENDIF DELPHI}
{$ENDIF HAS_FORMAT_SETTINGS}
function TranslateDotToDecimalSeperator(const Value: string) : string;
var
i : PtrInt;

32
wst/trunk/wst_global.inc
View File

@ -97,6 +97,38 @@
{$DEFINE WST_TKPOINTER}
{$DEFINE WST_TKPROCEDURE}
{$ENDIF}
{$IFDEF VER230} // Delphi XE2
{$DEFINE HAS_BUILT_IN_64UINT}
{$DEFINE WST_UNICODESTRING}
{$DEFINE USE_INLINE}
{$DEFINE WST_TKCLASSREF}
{$DEFINE WST_TKPOINTER}
{$DEFINE WST_TKPROCEDURE}
{$ENDIF}
{$IFDEF VER240} // Delphi XE3
{$DEFINE HAS_BUILT_IN_64UINT}
{$DEFINE WST_UNICODESTRING}
{$DEFINE USE_INLINE}
{$DEFINE WST_TKCLASSREF}
{$DEFINE WST_TKPOINTER}
{$DEFINE WST_TKPROCEDURE}
{$ENDIF}
{$IFDEF VER250} // Delphi XE4
{$DEFINE HAS_BUILT_IN_64UINT}
{$DEFINE WST_UNICODESTRING}
{$DEFINE USE_INLINE}
{$DEFINE WST_TKCLASSREF}
{$DEFINE WST_TKPOINTER}
{$DEFINE WST_TKPROCEDURE}
{$ENDIF}
{$IFDEF VER260} // Delphi XE5
{$DEFINE HAS_BUILT_IN_64UINT}
{$DEFINE WST_UNICODESTRING}
{$DEFINE USE_INLINE}
{$DEFINE WST_TKCLASSREF}
{$DEFINE WST_TKPOINTER}
{$DEFINE WST_TKPROCEDURE}
{$ENDIF}
{$DEFINE WST_SEMAPHORE_TIMEOUT}
{$IFDEF MSWINDOWS}
{$IFNDEF WINDOWS}