Changeset 199 for trunk/UServerList.pas

Timestamp:

May 16, 2018, 2:48:57 PM (6 years ago)

Author:

chronos

Message:

• Modified: Initial game setting made independent to current game settings. So last game can be automatically loaded on start and initial setting will be intact.

File:

• trunk/UServerList.pas (modified) (4 diffs)

trunk/UServerList.pas

@@ -21 +21 @@
     MapName: string;
     Latency: TTime;
+    procedure Assign(Source: TServerInfo);
     constructor Create;
   end;
@@ -33 +34 @@
     Address: string;
     Items: TServerInfos;
+    procedure Assign(Source: TServerList);
     constructor Create;
     destructor Destroy; override;
@@ -47 +49 @@
 { TServerInfo }
 
+procedure TServerInfo.Assign(Source: TServerInfo);
+begin
+  Name := Source.Name;
+  Address := Source.Address;
+  Port := Source.Port;
+  PlayersCountCurrent := Source.PlayersCountCurrent;
+  PlayersCountMax := Source.PlayersCountMax;
+  Password := Source.Password;
+  MapName := Source.MapName;
+  Latency := Source.Latency;
+end;
+
 constructor TServerInfo.Create;
 begin
@@ -53 +67 @@
 
 { 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;
+end;
 
 constructor TServerList.Create;