Changeset 170 for trunk/Packages/Common/Table.pas

Timestamp:

Jul 2, 2023, 11:07:39 PM (11 months ago)

Author:

chronos

Message:

• Fixed: Show only supported import formats.

File:

• trunk/Packages/Common/Table.pas (modified) (5 diffs)

trunk/Packages/Common/Table.pas

@@ -9 +9 @@
   TTableFormat = (tfExcel, tfPlain, tfCsv, tfHtml, tfListView, tfMediaWiki,
     tfXml, tfJson);
+  TTableFormats = set of TTableFormat;
 
   { TRow }
@@ -42 +43 @@
     procedure GetOutputListView(ListView: TListView);
     function GetOutput(OutputFormat: TTableFormat): string;
-    procedure SetInputTabs(Text: string);
-    procedure SetInputPlain(Text: string);
     procedure SetInputCsv(Text: string);
-    procedure SetInputXml(Text: string);
-    procedure SetInputHtml(Text: string);
     procedure SetInputMediaWiki(Text: string);
     procedure SetInputJson(Text: string);
     procedure SetInput(OutputFormat: TTableFormat; Text: string);
+    function GetInputFormats: TTableFormats;
     constructor Create;
     destructor Destroy; override;
@@ -303 +301 @@
     else raise Exception.Create(SUnsupportedFormat);
   end;
-end;
-
-procedure TTable.SetInputTabs(Text: string);
-begin
-
-end;
-
-procedure TTable.SetInputPlain(Text: string);
-begin
-
 end;
 
@@ -339 +327 @@
     FreeAndNil(Lines);
   end;
-end;
-
-procedure TTable.SetInputXml(Text: string);
-begin
-
-end;
-
-procedure TTable.SetInputHtml(Text: string);
-begin
-
 end;
 
@@ -482 +460 @@
 begin
   case OutputFormat of
-    tfExcel: SetInputTabs(Text);
-    tfPlain: SetInputPlain(Text);
     tfCsv: SetInputCsv(Text);
-    tfHtml: SetInputHtml(Text);
     tfMediaWiki: SetInputMediaWiki(Text);
-    tfXml: SetInputXml(Text);
     tfJson: SetInputJson(Text);
     else raise Exception.Create(SUnsupportedFormat);
   end;
+end;
+
+function TTable.GetInputFormats: TTableFormats;
+begin
+  Result := [tfCsv, tfJson, tfMediaWiki];
 end;