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

* Fix wikitable reading (add missing format list)

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3067 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
bigchimp
2014-05-20 12:38:10 +00:00
parent 74af303a2a
commit 7c3d710fbe
1 changed files with 9 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
components/fpspreadsheet/wikitable.pas
View File

@@ -59,7 +59,7 @@ type
{ TsWikiTableNumFormatList } { TsWikiTableNumFormatList }
TsWikiTableNumFormatList = class(TsCustomNumFormatList) TsWikiTableNumFormatList = class(TsCustomNumFormatList)
protected protected
//procedure AddBuiltinFormats; override; // procedure AddBuiltinFormats; override;
public public
// function FormatStringForWriting(AIndex: Integer): String; override; // function FormatStringForWriting(AIndex: Integer): String; override;
end; end;
@@ -68,6 +68,8 @@ type
{ TsWikiTableReader } { TsWikiTableReader }
TsWikiTableReader = class(TsCustomSpreadReader) TsWikiTableReader = class(TsCustomSpreadReader)
protected
procedure CreateNumFormatList; override;
public public
SubFormat: TsSpreadsheetFormat; SubFormat: TsSpreadsheetFormat;
{ General reading methods } { General reading methods }
@@ -295,6 +297,12 @@ end;
{ TsWikiTableReader } { TsWikiTableReader }
procedure TsWikiTableReader.CreateNumFormatList;
begin
FreeAndNil(FNumFormatList);
FNumFormatList := TsWikiTableNumFormatList.Create;
end;
procedure TsWikiTableReader.ReadFromStrings(AStrings: TStrings; procedure TsWikiTableReader.ReadFromStrings(AStrings: TStrings;
AData: TsWorkbook); AData: TsWorkbook);
begin begin