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;