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

fpspreadsheet: Fix exporter writing ftFloat fields as currency cells (http://forum.lazarus.freepascal.org/index.php/topic,36321.msg241946 - patch by forum user "paweld")

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5818 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-03-26 11:23:43 +00:00
parent fe861e4d49
commit cbc35cb1c3
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/fpspreadsheet/source/export/fpsexport.pas
View File

@ -301,7 +301,9 @@ begin
FSheet.WriteBlank(FRow, EF.Index)
else if Field.Datatype in (IntFieldTypes+[ftAutoInc,ftLargeInt]) then
FSheet.WriteNumber(FRow, EF.Index,Field.AsInteger)
else if Field.Datatype in [ftBCD,ftCurrency,ftFloat,ftFMTBcd] then
else if Field.Datatype in [ftBCD,ftFloat,ftFMTBcd] then
FSheet.WriteNumber(FRow, EF.Index, Field.AsFloat)
else if Field.Datatype in [ftCurrency] then
FSheet.WriteCurrency(FRow, EF.Index, Field.AsFloat)
else if Field.DataType in [ftString,ftFixedChar] then
FSheet.WriteText(FRow, EF.Index, Field.AsString)