Changeset 288 for trunk/Forms/UFormNew.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/UFormNew.pas (modified) (2 diffs)

trunk/Forms/UFormNew.pas

@@ -600 +600 @@
 procedure TFormNew.AServerAddExecute(Sender: TObject);
 var
-  NewServer: TServerInfo;
+  NewServerInfo: TServerInfo;
 begin
   FormServer := TFormServer.Create(nil);
-  NewServer := TServerInfo.Create;
-  FormServer.Load(NewServer);
+  NewServerInfo := TServerInfo.Create;
+  FormServer.ServerInfo := NewServerInfo;
   if FormServer.ShowModal = mrOK then begin
-    FormServer.Save(NewServer);
-    ServerList.Items.Add(NewServer);
+    ServerList.Items.Add(NewServerInfo);
     ReloadView;
-  end else NewServer.Free;
+  end else NewServerInfo.Free;
   FormServer.Free;
 end;
@@ -615 +614 @@
 procedure TFormNew.AServerModifyExecute(Sender: TObject);
 var
-  Server: TServerInfo;
+  ServerInfo: TServerInfo;
 begin
   FormServer := TFormServer.Create(nil);
-  Server := TServerInfo(ListViewServers.Selected.Data);
-  FormServer.Load(Server);
+  ServerInfo := TServerInfo(ListViewServers.Selected.Data);
+  FormServer.ServerInfo := ServerInfo;
   if FormServer.ShowModal = mrOK then begin
-    FormServer.Save(Server);
     ReloadView;
   end;