Changeset 172 for trunk/Forms/FormImport.pas

Timestamp:

Jun 14, 2024, 9:41:40 PM (4 months ago)

Author:

chronos

Message:

• Fixed: Avoid error in case of invalid import data.
• Modified: Updated Common package.

File:

• trunk/Forms/FormImport.pas (modified) (1 diff)

trunk/Forms/FormImport.pas

@@ -136 +136 @@
   if not FileExists(EditInputFile.Text) then Exit;
 
-  Table.SetInput(TableFormat, LoadFileToStr(EditInputFile.Text));
-  Table.Title := ExtractFileNameWithoutExt(EditInputFile.Text);
+  try
+    Table.SetInput(TableFormat, LoadFileToStr(EditInputFile.Text));
+    Table.Title := ExtractFileNameWithoutExt(EditInputFile.Text);
+  except
+    // It may fail due to invalid format
+  end;
 end;