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

fpspreadsheet: Fix compilation error, issue 0030185.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4667 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-05-25 05:27:07 +00:00
parent ab2fa916b0
commit 068aaab404
3 changed files with 6 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/fpspreadsheet/laz_fpspreadsheet.pas
View File

@@ -4,7 +4,6 @@
unit laz_fpspreadsheet; unit laz_fpspreadsheet;
{$warn 5023 off : no warning about unused units}
interface interface
uses uses

4
components/fpspreadsheet/xlsbiff2.pas
View File

@@ -119,7 +119,7 @@ type
procedure WriteRow(AStream: TStream; ASheet: TsWorksheet; procedure WriteRow(AStream: TStream; ASheet: TsWorksheet;
ARowIndex, AFirstColIndex, ALastColIndex: Cardinal; ARow: PRow); override; ARowIndex, AFirstColIndex, ALastColIndex: Cardinal; ARow: PRow); override;
procedure WriteRPNFormula(AStream: TStream; const ARow, ACol: Cardinal; procedure WriteRPNFormula(AStream: TStream; const ARow, ACol: Cardinal;
const AFormula: TsRPNFormula; ACell: PCell); override; AFormula: TsRPNFormula; ACell: PCell); override;
function WriteRPNFunc(AStream: TStream; AIdentifier: Word): Word; override; function WriteRPNFunc(AStream: TStream; AIdentifier: Word): Word; override;
procedure WriteRPNTokenArraySize(AStream: TStream; ASize: Word); override; procedure WriteRPNTokenArraySize(AStream: TStream; ASize: Word); override;
procedure WriteStringRecord(AStream: TStream; AString: String); override; procedure WriteStringRecord(AStream: TStream; AString: String); override;
@@ -1635,7 +1635,7 @@ end;
string to an RPN array by the calling method. string to an RPN array by the calling method.
-------------------------------------------------------------------------------} -------------------------------------------------------------------------------}
procedure TsSpreadBIFF2Writer.WriteRPNFormula(AStream: TStream; procedure TsSpreadBIFF2Writer.WriteRPNFormula(AStream: TStream;
const ARow, ACol: Cardinal; const AFormula: TsRPNFormula; ACell: PCell); const ARow, ACol: Cardinal; AFormula: TsRPNFormula; ACell: PCell);
var var
RPNLength: Word; RPNLength: Word;
RecordSizePos, FinalPos: Cardinal; RecordSizePos, FinalPos: Cardinal;

8
components/fpspreadsheet/xlscommon.pas
View File

@@ -582,11 +582,11 @@ type
function WriteRPNCellRangeAddress(AStream: TStream; ARow1, ACol1, ARow2, ACol2: Cardinal; function WriteRPNCellRangeAddress(AStream: TStream; ARow1, ACol1, ARow2, ACol2: Cardinal;
AFlags: TsRelFlags): Word; virtual; AFlags: TsRelFlags): Word; virtual;
procedure WriteRPNFormula(AStream: TStream; const ARow, ACol: Cardinal; procedure WriteRPNFormula(AStream: TStream; const ARow, ACol: Cardinal;
const AFormula: TsRPNFormula; ACell: PCell); virtual; AFormula: TsRPNFormula; ACell: PCell); virtual;
function WriteRPNFunc(AStream: TStream; AIdentifier: Word): Word; virtual; function WriteRPNFunc(AStream: TStream; AIdentifier: Word): Word; virtual;
procedure WriteRPNResult(AStream: TStream; ACell: PCell); procedure WriteRPNResult(AStream: TStream; ACell: PCell);
procedure WriteRPNTokenArray(AStream: TStream; ACell: PCell; procedure WriteRPNTokenArray(AStream: TStream; ACell: PCell;
const AFormula: TsRPNFormula; UseRelAddr, IsSupported: Boolean; var RPNLength: Word); AFormula: TsRPNFormula; UseRelAddr, IsSupported: Boolean; var RPNLength: Word);
procedure WriteRPNTokenArraySize(AStream: TStream; ASize: Word); virtual; procedure WriteRPNTokenArraySize(AStream: TStream; ASize: Word); virtual;
// Writes out a SELECTION record // Writes out a SELECTION record
@@ -3911,7 +3911,7 @@ end;
Valid for BIFF5-BIFF8. Valid for BIFF5-BIFF8.
-------------------------------------------------------------------------------} -------------------------------------------------------------------------------}
procedure TsSpreadBIFFWriter.WriteRPNFormula(AStream: TStream; procedure TsSpreadBIFFWriter.WriteRPNFormula(AStream: TStream;
const ARow, ACol: Cardinal; const AFormula: TsRPNFormula; ACell: PCell); const ARow, ACol: Cardinal; AFormula: TsRPNFormula; ACell: PCell);
var var
RPNLength: Word = 0; RPNLength: Word = 0;
RecordSizePos, StartPos, FinalPos: Int64; RecordSizePos, StartPos, FinalPos: Int64;
@@ -4059,7 +4059,7 @@ end;
Writes the token array of the given RPN formula and returns its size Writes the token array of the given RPN formula and returns its size
-------------------------------------------------------------------------------} -------------------------------------------------------------------------------}
procedure TsSpreadBIFFWriter.WriteRPNTokenArray(AStream: TStream; procedure TsSpreadBIFFWriter.WriteRPNTokenArray(AStream: TStream;
ACell: PCell; const AFormula: TsRPNFormula; UseRelAddr, IsSupported: boolean; ACell: PCell; AFormula: TsRPNFormula; UseRelAddr, IsSupported: boolean;
var RPNLength: Word); var RPNLength: Word);
var var
i: Integer; i: Integer;