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

Timestamp:

Jul 1, 2023, 11:54:02 AM (17 months ago)

Author:

chronos

Message:

• Added: Import form preparation.

File:

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

trunk/Packages/Common/Table.pas

@@ -39 +39 @@
     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 SetInput(OutputFormat: TTableFormat; Text: string);
     constructor Create;
     destructor Destroy; override;
@@ -55 +62 @@
   Common;
 
+resourcestring
+  SUnsupportedFormat = 'Unsupported format';
+
 { TTable }
 
@@ -74 +84 @@
 procedure TTable.Clear;
 begin
+  Columns.Clear;
   Rows.Clear;
 end;
@@ -138 +149 @@
 begin
   Result := '<?xml version="1.0" encoding="UTF-8"?>' + LineEnding +
-    '<vcard>' + LineEnding +
+    '<table>' + LineEnding +
     '  <title>' + Title + '</title>' + LineEnding +
-    '  <contacts>' + LineEnding;
+    '  <rows>' + LineEnding;
   for I := 0 to Rows.Count - 1 do begin
-    Result := Result + '    <contact>' + LineEnding;
+    Result := Result + '    <row>' + LineEnding;
     for J := 0 to Rows[I].Cells.Count - 1 do
       if Rows[I].Cells[J] <> '' then
-        Result := Result + '      <property name="' + Columns[J] + '">' + ReplaceXmlEntities(Rows[I].Cells[J]) + '</property>' + LineEnding;
-    Result := Result + '    </contact>' + LineEnding;
-  end;
-  Result := Result + '  </contacts>' + LineEnding +
-    '</vcard>';
+        Result := Result + '      <cell name="' + Columns[J] + '">' + ReplaceXmlEntities(Rows[I].Cells[J]) + '</cell>' + LineEnding;
+    Result := Result + '    </row>' + LineEnding;
+  end;
+  Result := Result + '  </rows>' + LineEnding +
+    '</table>';
 end;
 
@@ -255 +266 @@
     tfMediaWiki: Result := GetOutputMediaWiki;
     tfXml: Result := GetOutputXml;
-    else Result := '';
+    else raise Exception.Create(SUnsupportedFormat);
+  end;
+end;
+
+procedure TTable.SetInputTabs(Text: string);
+begin
+
+end;
+
+procedure TTable.SetInputPlain(Text: string);
+begin
+
+end;
+
+procedure TTable.SetInputCsv(Text: string);
+begin
+
+end;
+
+procedure TTable.SetInputXml(Text: string);
+begin
+
+end;
+
+procedure TTable.SetInputHtml(Text: string);
+begin
+
+end;
+
+procedure TTable.SetInputMediaWiki(Text: string);
+begin
+
+end;
+
+procedure TTable.SetInput(OutputFormat: TTableFormat; Text: string);
+begin
+  case OutputFormat of
+    tfExcel: SetInputTabs(Text);
+    tfPlain: SetInputPlain(Text);
+    tfCsv: SetInputCsv(Text);
+    tfHtml: SetInputHtml(Text);
+    tfMediaWiki: SetInputMediaWiki(Text);
+    tfXml: SetInputXml(Text);
+    else raise Exception.Create(SUnsupportedFormat);
   end;
 end;