Thema: Delphi Countdown und Delay

Einzelnen Beitrag anzeigen

Benutzerbild von chrisw
chrisw

Registriert seit: 11. Jan 2005
Ort: Schleswig
193 Beiträge
 
Delphi XE8 Professional
 
#2

Re: Countdown und Delay

  Alt 29. Sep 2005, 10:36
wie wäre es mit einer Bool variable, die abgefragt wird und wenn der Timer läuft true ist, sonst false

Delphi-Quellcode:
procedure test;

begin
  if not TimerRuns then
  begin
        //Testreihen gernerieren
        //Ausgabe
        Wartezeit:=random(60001);
        CountdownOn(Wartezeit);
        //Test auswerten
        Pausenzeit:=random(18001);
        CountdownOn(Pausenzeit);
        TimerRuns := True;
  end;
end;

im Timer (am Ende) TimerRuns wieder auf False
Christian Wahl
me, myself and I, die lustigen Drei !!
  Mit Zitat antworten Zitat