From 7c3d710fbed1b3ba3613db3e3a2cab9703b05c75 Mon Sep 17 00:00:00 2001
From: bigchimp <bigchimp@8e941d3f-bd1b-0410-a28a-d453659cc2b4>
Date: Tue, 20 May 2014 12:38:10 +0000
Subject: [PATCH] * Fix wikitable reading (add missing format list)

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@3067 8e941d3f-bd1b-0410-a28a-d453659cc2b4
---
 components/fpspreadsheet/wikitable.pas | 10 +++++++++-
 1 file changed, 9 insertions(+), 1 deletion(-)

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