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

* Fix wikitable writing failure due to missing format list

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3064 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
bigchimp
2014-05-20 09:23:32 +00:00
parent 66cec8a7c1
commit 20f88b74cd
1 changed files with 21 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
components/fpspreadsheet/wikitable.pas
View File

@ -56,6 +56,15 @@ type
procedure TokenizeString_Pipes(AStr: string); procedure TokenizeString_Pipes(AStr: string);
end; end;
{ TsWikiTableNumFormatList }
TsWikiTableNumFormatList = class(TsCustomNumFormatList)
protected
//procedure AddBuiltinFormats; override;
public
// function FormatStringForWriting(AIndex: Integer): String; override;
end;
{ TsWikiTableReader } { TsWikiTableReader }
TsWikiTableReader = class(TsCustomSpreadReader) TsWikiTableReader = class(TsCustomSpreadReader)
@ -78,6 +87,9 @@ type
TsWikiTableWriter = class(TsCustomSpreadWriter) TsWikiTableWriter = class(TsCustomSpreadWriter)
private private
FWorksheet: TsWorksheet; FWorksheet: TsWorksheet;
protected
// Helpers
procedure CreateNumFormatList; override;
public public
SubFormat: TsSpreadsheetFormat; SubFormat: TsSpreadsheetFormat;
{ General writing methods } { General writing methods }
@ -94,6 +106,9 @@ type
implementation implementation
{ TsWikiTableNumFormatList }
{ TWikiTableTokenizer } { TWikiTableTokenizer }
constructor TWikiTableTokenizer.Create; constructor TWikiTableTokenizer.Create;
@ -326,6 +341,12 @@ end;
{ TsWikiTableWriter } { TsWikiTableWriter }
procedure TsWikiTableWriter.CreateNumFormatList;
begin
FreeAndNil(FNumFormatList);
FNumFormatList := TsWikiTableNumFormatList.Create;
end;
procedure TsWikiTableWriter.WriteToStrings(AStrings: TStrings); procedure TsWikiTableWriter.WriteToStrings(AStrings: TStrings);
begin begin
case SubFormat of case SubFormat of