Changeset 346 for trunk/ServerList.pas

Timestamp:

Dec 25, 2024, 11:04:56 AM (27 hours ago)

Author:

chronos

Message:

• Fixed: Build on Linux.
• Modified: Improved internal code structure.

File:

• trunk/ServerList.pas (modified) (2 diffs)

trunk/ServerList.pas

@@ -23 +23 @@
   end;
 
+  { TServerInfos }
+
   TServerInfos = class(TObjectList<TServerInfo>)
+    procedure Assign(Source: TServerInfos);
   end;
 
@@ -64 +67 @@
 end;
 
+{ TServerInfos }
+
+procedure TServerInfos.Assign(Source: TServerInfos);
+var
+  I: Integer;
+begin
+  while Count > Source.Count do
+    Delete(Count - 1);
+  while Count < Source.Count do
+    Add(TServerInfo.Create);
+  for I := 0 to Count - 1 do begin
+    Items[I].Assign(Source.Items[I]);
+  end;
+end;
+
 { TServerList }
 
 procedure TServerList.Assign(Source: TServerList);
-var
-  I: Integer;
 begin
-  while Items.Count > Source.Items.Count do
-    Items.Delete(Items.Count - 1);
-  while Items.Count < Source.Items.Count do
-    Items.Add(TServerInfo.Create);
-  for I := 0 to Items.Count - 1 do begin
-    Items[I].Assign(Source.Items[I]);
-  end;
+  Name := Source.Name;
+  Address := Source.Address;
+  Items.Assign(Source.Items);
 end;