Changeset 95 for trunk/Forms/UFormImportSource.pas

Timestamp:

Aug 17, 2016, 11:20:37 AM (8 years ago)

Author:

chronos

Message:

• Modified: Do not initialize all forms at startup to save some memory.

File:

• trunk/Forms/UFormImportSource.pas (modified) (2 diffs)

trunk/Forms/UFormImportSource.pas

@@ -72 +72 @@
     NewImportFormat := TImportFormat.Create;
     NewImportFormat.Assign(TImportFormat(ComboBox1.Items.Objects[ComboBox1.ItemIndex]));
-    FormImportFormat.Load(NewImportFormat);
-    if FormImportFormat.ShowModal = mrOk then begin
-      FormImportFormat.Save(NewImportFormat);
-      TImportFormat(ComboBox1.Items.Objects[ComboBox1.ItemIndex]).Assign(NewImportFormat);
-      Core.AcronymDb.Modified := True;
-      ComboBox1.Items.Strings[ComboBox1.ItemIndex] := NewImportFormat.Name;
+    FormImportFormat := TFormImportFormat.Create(Self);
+    try
+      FormImportFormat.Load(NewImportFormat);
+      if FormImportFormat.ShowModal = mrOk then begin
+        FormImportFormat.Save(NewImportFormat);
+        TImportFormat(ComboBox1.Items.Objects[ComboBox1.ItemIndex]).Assign(NewImportFormat);
+        Core.AcronymDb.Modified := True;
+        ComboBox1.Items.Strings[ComboBox1.ItemIndex] := NewImportFormat.Name;
+      end;
+      if Assigned(NewImportFormat) then NewImportFormat.Free;
+    finally
+      FreeAndNil(FormImportFormat);
     end;
-    if Assigned(NewImportFormat) then NewImportFormat.Free;
   end;
 end;
@@ -97 +102 @@
   I: Integer;
 begin
-  FormCategorySelect.Load(ListBox1.Items);
-  if FormCategorySelect.ShowModal = mrOk then begin
-    for I := 0 to FormCategorySelect.ListBox1.Count - 1 do
-      if FormCategorySelect.ListBox1.Selected[I] then begin
-        ListBox1.Items.AddObject(FormCategorySelect.ListBox1.Items[I], FormCategorySelect.ListBox1.Items.Objects[I]);
-      end;
+  FormCategorySelect := TFormCategorySelect.Create(Self);
+  try
+    FormCategorySelect.Load(ListBox1.Items);
+    if FormCategorySelect.ShowModal = mrOk then begin
+      for I := 0 to FormCategorySelect.ListBox1.Count - 1 do
+        if FormCategorySelect.ListBox1.Selected[I] then begin
+          ListBox1.Items.AddObject(FormCategorySelect.ListBox1.Items[I], FormCategorySelect.ListBox1.Items.Objects[I]);
+        end;
+    end;
+  finally
+    FreeAndNil(FormCategorySelect);
   end;
 end;