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

Fixed reading in non US locales (decimal separator = '.') of floating point data in Open Document.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@949 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
Joshy
2009-09-02 01:22:46 +00:00
parent 9c7a5199c7
commit 7f32d73b05
1 changed files with 4 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/fpspreadsheet/fpsopendocument.pas
View File

@ -235,8 +235,11 @@ begin
end; end;
procedure TsSpreadOpenDocReader.ReadNumber(ARow: Word; ACol : Word; ACellNode : TDOMNode); procedure TsSpreadOpenDocReader.ReadNumber(ARow: Word; ACol : Word; ACellNode : TDOMNode);
var
FSettings: TFormatSettings;
begin begin
FWorkSheet.WriteNumber(Arow,ACol,StrToFloat(ACellNode.TextContent)); FSettings.DecimalSeparator:='.';
FWorkSheet.WriteNumber(Arow,ACol,StrToFloat(ACellNode.TextContent,FSettings));
end; end;
{ TsSpreadOpenDocWriter } { TsSpreadOpenDocWriter }