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

fpspreadsheet: opendocument format, write numbers without localized decimal separator, fixes https://sourceforge.net/tracker/?func=detail&aid=2813780&group_id=92177&atid=599764

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@889 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
vsnijders
2009-07-01 14:01:44 +00:00
parent b9af2f71bb
commit 416b85851f
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

@ -542,10 +542,13 @@ end;
procedure TsSpreadOpenDocWriter.WriteNumber(AStream: TStream; const ARow, procedure TsSpreadOpenDocWriter.WriteNumber(AStream: TStream; const ARow,
ACol: Cardinal; const AValue: double); ACol: Cardinal; const AValue: double);
var
StrValue: string;
begin begin
// The row should already be the correct one // The row should already be the correct one
Str(AValue, StrValue);
FContent := FContent + FContent := FContent +
' <table:table-cell office:value-type="float" office:value="' + FloatToStr(AValue) + '">' + LineEnding + ' <table:table-cell office:value-type="float" office:value="' + StrValue + '">' + LineEnding +
' <text:p>' + FloatToStr(AValue) + '</text:p>' + LineEnding + ' <text:p>' + FloatToStr(AValue) + '</text:p>' + LineEnding +
' </table:table-cell>' + LineEnding; ' </table:table-cell>' + LineEnding;
end; end;