dynamische Verwaltung von Objekten - Fahrstuhlsteuerung

[StuRic]

Moin,

die dynamische Verwaltung meiner Objekte funktioniert soweit. An dieser Stelle ein dickes Dankeschön an alle Ratgeber

Allerdings habe ich (leider) ein neues Problem: Wärenddessen eine Methode (hier: function TTuer.schließen(...):bool abgearbeitet wird, soll eine andere Methode diese unterbrechen können (hier:  function TTuer.oeffnen(...):bool .

Mein Versuch es über einen Attributwert zu machen, hat leider nicht funktioniert (...logisch: da die Methoden nacheinander abgearbeitet werden)...der Versuch sieht etwa so aus:

Delphi-Quellcode:

function TTuer.schließen(...):bool;
...
begin
  ...
  tuerSchließend:= true;
  while ... and (tuerSchließend)  do
  begin
    //Tür Schließen
  end;
  tuerSchließend:= false;
end;

function TTuer.oeffnen(...):bool;
begin
  if tuerSchließend then tuerSchließend:= false;
  while ...  do
  begin
    //Tür Öffnen
  end;
end;

Kann man mein Problem evt mit Break oder GoTo lösen? Wenn ja, bitte ein Beispiel mitgeben.
Wenn es ohne Break oder GoTo machbar ist, würd ich eine solche Lösung bevorzugen...

Grüße Ric