Zeiinterval warten und nichts machen

**ozz**

Hallo zusammen,
ich suche ein Lösung, bei der ich eine Zeitinterval warten kann und mein Programm nicht weiterläuft. Momentan behelfe ich mir mit den folgenden Construct. Das ist zugegebenermaßen hässlich. Hat jemand vielleicht einen Tipp für mich (andere Ansatz)? Danke!

ich starte einfach RetryTimeout... und warte.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TMy.StartRetry;

begin

   isStartRetryTimer:=True;

end;

procedure TMy.RetryTimeout;

begin

  isStartRetryTimer:=False;

  Timer.Interval:=FTimeBetweenRetries; // Timer setzen

  Timer.Enabled:= True; //Timer starten

  while isStartRetryTimer= false  do;

  Timer.Enabled:= False; //Timer anhalten

end;

Zeiinterval warten und nichts machen

Zeiinterval warten und nichts machen

Forumregeln