Changeset 168 for trunk/Forms/FormImport.pas

Timestamp:

Jul 1, 2023, 8:17:50 PM (17 months ago)

Author:

chronos

Message:

• Modifed: Export/Import moved to TVCard class.
• Added: Export/Import tests for CSV and MediaWiki formats.

File:

• trunk/Forms/FormImport.pas (modified) (4 diffs)

trunk/Forms/FormImport.pas

@@ -27 +27 @@
     procedure ButtonImportClick(Sender: TObject);
     procedure ComboBoxInputFormatChange(Sender: TObject);
+    procedure EditInputFileChange(Sender: TObject);
     procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
     procedure FormCreate(Sender: TObject);
@@ -47 +48 @@
 
 uses
-  Core, Common, RegistryEx, VCardFile;
+  Core, Common, RegistryEx, VCardFile, VCard;
 
 { TFormImport }
@@ -61 +62 @@
 begin
   TableFormat := TTableFormat(ComboBoxInputFormat.Items.Objects[ComboBoxInputFormat.ItemIndex]);
-  Table.SetInput(TableFormat, LoadFileToStr(EditInputFile.Text));
-  Table.Title := ExtractFileNameWithoutExt(EditInputFile.Text);
+  TVCardFile(Core.Core.DataFile).VCard.ImportFromFile(EditInputFile.Text, TableFormat,
+    CheckBoxHumanReadableHeader.Checked);
 end;
 
@@ -68 +69 @@
 begin
   UpdateTableFormat;
+end;
+
+procedure TFormImport.EditInputFileChange(Sender: TObject);
+begin
+  RedrawPending := True;
 end;