Changeset 278 for trunk/UUnit.pas

Timestamp:

Feb 14, 2019, 10:25:13 PM (6 years ago)

Author:

chronos

Message:

• Fixed: Incorrect way to assign units between two game systems causing crash of the application on exit.

File:

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

trunk/UUnit.pas

@@ -36 +36 @@
     procedure SaveToNode(Node: TDOMNode);
     constructor Create(FreeObjects: Boolean = True);
+    procedure Assign(Source: TUnitKinds);
   end;
 
@@ -353 +354 @@
 end;
 
+procedure TUnitKinds.Assign(Source: TUnitKinds);
+var
+  I: Integer;
+begin
+  while Count > Source.Count do Delete(Count - 1);
+  while Count < Source.Count do AddNew('');
+  for I := 0 to Count - 1 do
+    Items[I].Assign(Source.Items[I]);
+end;
+
 end.