Changeset 172 for trunk/Forms

Timestamp:

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

Author:

chronos

Message:

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

Location:

trunk/Forms

Files:

• FormImport.lfm (modified) (5 diffs)
• FormImport.pas (modified) (1 diff)

trunk/Forms/FormImport.lfm

@@ -12 +12 @@
   OnDestroy = FormDestroy
   OnShow = FormShow
-  LCLVersion = '2.2.6.0'
+  LCLVersion = '3.0.0.3'
   object ButtonCancel: TButton
     Left = 578
@@ -32 +32 @@
     Caption = 'Import'
     ModalResult = 1
-    OnClick = ButtonImportClick
     ParentFont = False
     TabOrder = 1
+    OnClick = ButtonImportClick
   end
   object ScrollBox1: TScrollBox
@@ -61 +61 @@
       Width = 225
       ItemHeight = 0
-      OnChange = ComboBoxInputFormatChange
       ReadOnly = True
       Style = csDropDownList
       TabOrder = 0
+      OnChange = ComboBoxInputFormatChange
     end
     object Label2: TLabel
@@ -80 +80 @@
       Width = 464
       Anchors = [akTop, akLeft, akRight]
+      TabOrder = 1
       OnChange = EditInputFileChange
-      TabOrder = 1
     end
     object ButtonBrowse: TButton
@@ -90 +90 @@
       Anchors = [akTop, akRight]
       Caption = 'Browse'
+      TabOrder = 2
       OnClick = ButtonBrowseClick
-      TabOrder = 2
     end
     object ListView1: TListView

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;