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