fpspreadsheet: Fix compilation issue using fpc 3.1.1 (issue #0027916)

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4092 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2015-04-21 20:51:31 +00:00
parent c3da3fa60c
commit cb3e968166

View File

@ -3749,7 +3749,7 @@ end;
@see TsNumberFormat @see TsNumberFormat
-------------------------------------------------------------------------------} -------------------------------------------------------------------------------}
function TsWorksheet.WriteNumber(ARow, ACol: Cardinal; ANumber: double; function TsWorksheet.WriteNumber(ARow, ACol: Cardinal; ANumber: double;
ANumFormat: TsNumberFormat = nfGeneral; ADecimals: Byte = 2): PCell; ANumFormat: TsNumberFormat; ADecimals: Byte = 2): PCell;
begin begin
Result := GetCell(ARow, ACol); Result := GetCell(ARow, ACol);
WriteNumber(Result, ANumber, ANumFormat, ADecimals); WriteNumber(Result, ANumber, ANumFormat, ADecimals);