Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Zeiinterval warten und nichts machen (https://www.delphipraxis.net/87133-zeiinterval-warten-und-nichts-machen.html)

ozz 23. Feb 2007 19:30


Zeiinterval warten und nichts machen
 
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.

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;

mkinzler 23. Feb 2007 19:35

Re: Zeiinterval warten und nichts machen
 
Sleep, Delay

hedie 23. Feb 2007 19:38

Re: Zeiinterval warten und nichts machen
 
Es gibt (soviel ich weiss (nicht getestet)) auch die Möglichkeit bei dem das programm weiterläuft


Delphi-Quellcode:
begin
asm
nop
nop
nop
asm
end;
Dabei wird bei jedem nop einfach einen Takt lang nichts getan

Jelly 23. Feb 2007 21:44

Re: Zeiinterval warten und nichts machen
 
Was willst Du denn machen. Ein Programm was nicht läuft ist kein Programm :mrgreen:

ozz 23. Feb 2007 21:53

Re: Zeiinterval warten und nichts machen
 
Ich Danke Euch. Mir fehlten nur die richtigen Stichworte. :wall: :cyclops:


Alle Zeitangaben in WEZ +1. Es ist jetzt 14:36 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz