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

Fix number parsing format : set wst_FormatSettings.ThousandSeparator = #0

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@849 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
inoussa
2009-06-16 00:55:56 +00:00
parent c08865f6ad
commit 5164d80f26
1 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
wst/trunk/base_service_intf.pas
View File

@ -6331,11 +6331,11 @@ begin
{$IFDEF HAS_FORMAT_SETTINGS} {$IFDEF HAS_FORMAT_SETTINGS}
{$IFDEF FPC} {$IFDEF FPC}
wst_FormatSettings := DefaultFormatSettings; wst_FormatSettings := DefaultFormatSettings;
wst_FormatSettings.DecimalSeparator := '.';
{$ELSE} {$ELSE}
GetLocaleFormatSettings(GetThreadLocale(),wst_FormatSettings); GetLocaleFormatSettings(GetThreadLocale(),wst_FormatSettings);
wst_FormatSettings.DecimalSeparator := '.';
{$ENDIF} {$ENDIF}
wst_FormatSettings.DecimalSeparator := '.';
wst_FormatSettings.ThousandSeparator := #0;
{$ENDIF HAS_FORMAT_SETTINGS} {$ENDIF HAS_FORMAT_SETTINGS}
if ( TypeRegistryInstance = nil ) then begin if ( TypeRegistryInstance = nil ) then begin