self.free

[tommie-lie]

Zitat von RavenIV:

ein Thread ist kein Objekt.

Wenn ich ihn mit BeginThread() starte nicht, richtig, aber eine TThread-Instanz ist ein Objekt (Gips nicht sogar ein Property TThread.FreeOnTerminate?).

Zitat von user0:

Es geht um Spielfiguren, die sich gegenseitig rausschmeißen.

So?

Delphi-Quellcode:

TPawn = class
public
  destructor Destroy();

  procedure Capture(var TSpielfigur: aPawn);
  procedure Move(Integer: x, y);
end;


procedure TPawn.Capture(var TPawn: aPawn)
begin
  aSpielfigur.Free;
  aSpielfigur := nil;
  self.Spieler.IncreasePoints(1);
end;

destructr TPawn.Move(x, y)
begin
  if Board[x,y].getPawn() <> nil then // da steht schon jemand
    if Board[x,y].getPawn().getPlayer() <> self.getPlayer then // und der jemand gehört nicht mir
      self.Capture(Board[x,y].getPawn()); // also sacke ich den ein
end;

Keine Ahnung ob die Syntax stimmt, aber laufen müsste es, selbst wenn es sich nicht kompilieren lässt
Wenn die Spielfigur noch irgendwas hat, was sie freigeben möchte, zum Beispiel irgendwelche Ausrüstung, die die schlagende Spielfigur vorher nicht an sich nimmt, kann sie das im Destruktor tun. Wenn sie sich vorher in irgendeinem Kontrollobjekt "abmelden" muss, kann sie das ebenfalls im Destruktor tun.