Thread, Beendigung, IDE

[Sir Rufo]

Eine Patentlösung habe ich nicht. Ich mache es mir da einfach und implementiere es einfach nur richtig und schon funktioniert es:

Delphi-Quellcode:

TFooThread = class( TThread )
private
  FChair : TChair; // da setzt sich der Thread drauf
protected
  procedure Execute; override;
public
  constructor Create;
  destructor Destory; override;
end;

procedure TFooThread.Execute;
begin
  while not Terminated do
    FChair.SitDown(); // exessive Verwendung der TChair-Instanz
end;

constructor TFooThread.Create;
begin
  FChair := TChair.Create; // bevor irgendwas losläuft, erzeugen wir die TChair-Instanz
  inherited Create( False ); // der Thread selber wird erzeugt
end;

destructor TFooThread.Destroy;
begin
  // Der Thread kann jetzt noch aktiv sein,
  // darum dürfen wir ihm jetzt nicht den Stuhl unter dem Hintern wegziehen
  inherited; 
  // Jetzt ist der Thread gesichert beendet
  // und nun kann die TChair-Instanz bedenkenlos aufgeräumt werden
  FChair.Free;
end;