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

Fixes 2897681 and 2897708 reported by Luiz Camara.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@1007 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
Joshy
2009-11-14 18:48:17 +00:00
parent cafe31ad59
commit 758a46563d
1 changed files with 4 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
components/fpspreadsheet/fpsopendocument.pas
View File

@ -544,14 +544,16 @@ procedure TsSpreadOpenDocWriter.WriteNumber(AStream: TStream; const ARow,
var
StrValue: string;
DisplayStr: string;
FSettings: TFormatSettings;
begin
// The row should already be the correct one
if IsInfinite(AValue) then begin
StrValue:='1.#INF';
DisplayStr:='1.#INF';
end else begin
Str(AValue, StrValue);
DisplayStr:=FloatToStr(AValue);
FSettings.DecimalSeparator:='.';
StrValue:=FloatToStr(AValue,FSettings); //Uses '.' as decimal separator
DisplayStr:=FloatToStr(AValue); // Uses locale decimal separator
end;
FContent := FContent +
' <table:table-cell office:value-type="float" office:value="' + StrValue + '">' + LineEnding +