Changeset 336 for trunk/Unit.pas

Timestamp:

Sep 7, 2024, 10:29:16 PM (2 months ago)

Author:

chronos

Message:

• Added: Automated tests accessible in debug mode.
• Fixed: Player units internal links.
• Fixed: List items id regeneration before game save.

File:

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

trunk/Unit.pas

@@ -243 +243 @@
 
 procedure TUnit.SetPlayer(AValue: TObject);
+var
+  OldValue: TPlayer;
 begin
   if FPlayer = AValue then Exit;
-  if Assigned(FPlayer) then TPlayer(FPlayer).Units.Remove(Self);
+  OldValue := TPlayer(FPlayer);
+  FPlayer := nil;
+  if Assigned(OldValue) then TPlayer(OldValue).Units.Remove(Self);
   FPlayer := AValue;
   if Assigned(FPlayer) then TPlayer(FPlayer).Units.Add(Self);
@@ -301 +305 @@
 destructor TUnit.Destroy;
 begin
+  Player := nil;
   inherited;
 end;