Changeset 335 for trunk/Player.pas

Timestamp:

Sep 7, 2024, 11:53:58 AM (12 days ago)

Author:

chronos

Message:

• Modified: End turn with space key.
• Modified: Code cleanup.

File:

• trunk/Player.pas (modified) (3 diffs)

trunk/Player.pas

@@ -584 +584 @@
   I: Integer;
 begin
+  Result := Default(TPlayerArray);
   SetLength(Result, 0);
   for I := 0 to Count - 1 do
@@ -596 +597 @@
   I: Integer;
 begin
+  Result := Default(TPlayerArray);
   SetLength(Result, 0);
   for I := 0 to Count - 1 do
@@ -642 +644 @@
     NewNode := Node.OwnerDocument.CreateElement('UnitMove');
     Node.AppendChild(NewNode);
-    TUnitMove(Items[I]).SaveToNode(NewNode);
+    Items[I].SaveToNode(NewNode);
   end;
 end;