Changeset 152 for trunk/Forms/UFormNew.pas

Timestamp:

Nov 15, 2017, 6:19:17 PM (6 years ago)

Author:

chronos

Message:

• Added: Remember players configuration for new game.

File:

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

trunk/Forms/UFormNew.pas

@@ -333 +333 @@
 
 procedure TFormNew.Load(Game: TGame);
-var
-  I: Integer;
 begin
   CheckBoxSymetricMap.Checked := Game.SymetricMap;
@@ -340 +338 @@
   SpinEditVoidPercent.Value := Game.VoidPercentage;
   SpinEditVoidPercent.Enabled := Game.VoidEnabled;
-  for I := 0 to Players.Count - 1 do
-    Players[I] := nil;
-  Players.Count := Game.Players.Count;
-  for I := 0 to Game.Players.Count - 1 do begin
-    Players[I] := TPlayer.Create;
-    TPlayer(Players[I]).Assign(TPlayer(Game.Players[I]));
-  end;
-  Players.NewPlayerId := Game.Players.NewPlayerId;
-
+  Players.Assign(Game.Players);
   CheckBoxCity.Checked := Game.CityEnabled;
   SpinEditCityPercent.Value := Game.CityPercentage;
@@ -367 +357 @@
 
 procedure TFormNew.Save(Game: TGame);
-var
-  I: Integer;
-begin
-  while Game.Players.Count > Players.Count do
-    Game.Players.Delete(Game.Players.Count - 1);
-  while Game.Players.Count < Players.Count do
-    Game.Players.Add(TPlayer.Create);
-  for I := 0 to Game.Players.Count - 1 do begin
-    TPlayer(Game.Players[I]).Assign(TPlayer(Players[I]));
-    TPlayer(Game.Players[I]).Game := Game;
-  end;
+begin
+  Game.Players.Assign(Players);
   Game.Players.NewPlayerId := Players.NewPlayerId;
   Game.SymetricMap := CheckBoxSymetricMap.Checked;