From 5164d80f263415b880e19230ed7623582ffb5775 Mon Sep 17 00:00:00 2001
From: inoussa <inoussa@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 16 Jun 2009 00:55:56 +0000
Subject: [PATCH] Fix number parsing format : set
 wst_FormatSettings.ThousandSeparator = #0

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@849 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 wst/trunk/base_service_intf.pas | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/wst/trunk/base_service_intf.pas b/wst/trunk/base_service_intf.pas
index 49d94f6df..c55d7cb0b 100644
--- a/wst/trunk/base_service_intf.pas
+++ b/wst/trunk/base_service_intf.pas
@@ -6331,11 +6331,11 @@ begin
 {$IFDEF HAS_FORMAT_SETTINGS}
   {$IFDEF FPC}
     wst_FormatSettings := DefaultFormatSettings;
-    wst_FormatSettings.DecimalSeparator := '.';
   {$ELSE}
     GetLocaleFormatSettings(GetThreadLocale(),wst_FormatSettings);
-    wst_FormatSettings.DecimalSeparator := '.';
   {$ENDIF}
+  wst_FormatSettings.DecimalSeparator := '.';
+  wst_FormatSettings.ThousandSeparator := #0;
 {$ENDIF HAS_FORMAT_SETTINGS}
 
   if ( TypeRegistryInstance = nil ) then begin