Countdown und Delay

[chrisw]

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