Changeset 288 for trunk/Forms/UFormNations.pas

Timestamp:

Mar 24, 2019, 10:52:35 PM (6 years ago)

Author:

chronos

Message:

• Modified: More forms use data item property instead Load/Save methods.

File:

• trunk/Forms/UFormNations.pas (modified) (3 diffs)

trunk/Forms/UFormNations.pas

@@ -102 +102 @@
     FormNation := TFormNation.Create(Self);
     try
-      FormNation.Load(TempEntry);
+      FormNation.Nation := TempEntry;
       if FormNation.ShowModal = mrOk then begin
-        FormNation.Save(TempEntry);
         TNation(ListView1.Selected.Data).Assign(TempEntry);
         UpdateList;
@@ -124 +123 @@
   try
     TempEntry.Name := SNewUnitKind;
-    FormNation.Load(TempEntry);
+    FormNation.Nation := TempEntry;
     if FormNation.ShowModal = mrOk then begin
-      FormNation.Save(TempEntry);
       Nations.Add(TempEntry);
       TempEntry := nil;
@@ -149 +147 @@
     try
       TempEntry.Name := Nations.GetNextAvailableName(TempEntry.Name);
-      FormNation.Load(TempEntry);
+      FormNation.Nation := TempEntry;
       if FormNation.ShowModal = mrOk then begin
-        FormNation.Save(TempEntry);
         Nations.Add(TempEntry);
         TempEntry := nil;