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

fpspreadsheet: Fix compilation of fpsspeedtest.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4399 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2015-12-02 23:24:41 +00:00
parent a0ee8b8933
commit 7ef55a84d9
3 changed files with 9 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
components/fpspreadsheet/examples/fpsspeedtest/mainform.pas
View File

@ -70,7 +70,7 @@ var
implementation implementation
uses uses
LclIntf, StrUtils, fpsUtils; LclIntf, StrUtils, fpsUtils, fpsRegFileFormats;
{$R *.lfm} {$R *.lfm}

22
components/fpspreadsheet/fpsutils.pas
View File

@ -103,7 +103,7 @@ function GetCellString_R1C1(ARow, ACol: Cardinal; AFlags: TsRelFlags = [rfRelRow
function GetErrorValueStr(AErrorValue: TsErrorValue): String; function GetErrorValueStr(AErrorValue: TsErrorValue): String;
function TryStrToErrorValue(AErrorStr: String; out AErr: TsErrorValue): boolean; function TryStrToErrorValue(AErrorStr: String; out AErr: TsErrorValue): boolean;
//function GetFileFormatName(AFormat: TsSpreadsheetFormat): string; function GetFileFormatName(AFormat: TsSpreadsheetFormat): string; deprecated;
//function GetFileFormatExt(AFormat: TsSpreadsheetFormat): String; //function GetFileFormatExt(AFormat: TsSpreadsheetFormat): String;
function GetFormatFromFileName(const AFileName: TFileName; function GetFormatFromFileName(const AFileName: TFileName;
out AFormatID: TsSpreadFormatID): Boolean; overload; out AFormatID: TsSpreadFormatID): Boolean; overload;
@ -1044,30 +1044,22 @@ begin
end; end;
end; end;
(*
{@@ ---------------------------------------------------------------------------- {@@ ----------------------------------------------------------------------------
Returns the name of the given spreadsheet file format. Returns the name of the given spreadsheet file format.
@param AFormat Identifier of the file format @param AFormat Identifier of the file format
@return 'BIFF2', 'BIFF3', 'BIFF4', 'BIFF5', 'BIFF8', 'OOXML', 'Open Document', @return 'BIFF2', 'BIFF3', 'BIFF4', 'BIFF5', 'BIFF8', 'OOXML', 'Open Document',
'CSV, 'WikiTable Pipes', or 'WikiTable WikiMedia" 'CSV, 'WikiTable Pipes', or 'WikiTable WikiMedia"
@Note This function is deprecated. Use GetSpreadFormatName or
GetSpreadTechnicalName of fpsRegFileformats instead in order to
be able to process user-defined formats as well.
-------------------------------------------------------------------------------} -------------------------------------------------------------------------------}
function GetFileFormatName(AFormat: TsSpreadsheetFormat): string; function GetFileFormatName(AFormat: TsSpreadsheetFormat): string;
begin begin
case AFormat of Result := GetSpreadTechnicalName(ord(AFormat));
sfExcel2 : Result := 'BIFF2';
sfExcel5 : Result := 'BIFF5';
sfExcel8 : Result := 'BIFF8';
sfooxml : Result := 'OOXML';
sfOpenDocument : Result := 'Open Document';
sfCSV : Result := 'CSV';
sfHTML : Result := 'HTML';
sfWikiTable_Pipes : Result := 'WikiTable Pipes';
sfWikiTable_WikiMedia : Result := 'WikiTable WikiMedia';
else Result := rsUnknownSpreadsheetFormat;
end;
end; end;
(*
{@@ ---------------------------------------------------------------------------- {@@ ----------------------------------------------------------------------------
Returns the default extension of each spreadsheet file format Returns the default extension of each spreadsheet file format