Da ich mich jetzt schon so halb in das Wochenende verabschiede (d.h. ich habe keinen Zugriff mehr auf meinen privaten Rechner), möchte ich euch noch kurz etwas mehr Code zu meinem Problem geben. Vielleicht hilft das weiter.
Delphi-Quellcode:
procedure CountdownOn(Zeit:Int64);
//Schaltet den Countdown an
begin
counter:=Zeit;
Form_test.Button_Start.Enabled:=false;
Form_test.Edit_maxDurchl.Enabled:=false;
Form_test.Timer_CountDown.Enabled:=true;
end; //END CountdownOn
procedure CountdownOff;
//Schlatet den Countdown aus
begin
Form_test.Timer_CountDown.Enabled:=false;
Form_test.Button_Start.Enabled:=true;
Form_test.Edit_maxDurchl.Enabled:=true;
end; //END CountdownOff
procedure test;
// Startet den Test
begin
//Initalisierung
repeat
//Testreihen gernerieren
//Ausgabe
Wartezeit:=random(60001);
CountdownOn(Wartezeit);
//Test auswerten
Pausenzeit:=random(18001);
CountdownOn(Pausenzeit);
until {Abbruchbedingung};
//Daten speichern
end; //END test
procedure TForm_test.Timer_CountDownTimer(Sender: TObject);
//Timer
begin
counter:=counter-1000;
Label_Wartezeit.Caption:='Verbleibende Wartezeit: '+IntToStr(round(counter/1000))+' s';
If counter<=0 then CountdownOff;
end; //END Timer_CountDownTimer
Martin Schmidt.