From 7f32d73b05efda6bbae752dfee761c689a4e9af6 Mon Sep 17 00:00:00 2001
From: Joshy <Joshy@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Wed, 2 Sep 2009 01:22:46 +0000
Subject: [PATCH] Fixed reading in non US locales (decimal separator = '.') of
 floating point data in Open Document.

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@949 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/fpspreadsheet/fpsopendocument.pas | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/components/fpspreadsheet/fpsopendocument.pas b/components/fpspreadsheet/fpsopendocument.pas
index fabf34f72..4dc69b4f2 100755
--- a/components/fpspreadsheet/fpsopendocument.pas
+++ b/components/fpspreadsheet/fpsopendocument.pas
@@ -235,8 +235,11 @@ begin
 end;
 
 procedure TsSpreadOpenDocReader.ReadNumber(ARow: Word; ACol : Word; ACellNode : TDOMNode);
+var
+  FSettings: TFormatSettings;
 begin
-  FWorkSheet.WriteNumber(Arow,ACol,StrToFloat(ACellNode.TextContent));
+  FSettings.DecimalSeparator:='.';
+  FWorkSheet.WriteNumber(Arow,ACol,StrToFloat(ACellNode.TextContent,FSettings));
 end;
 
 { TsSpreadOpenDocWriter }