Zeitprogrammierung / Countdown

[sebastian_buege]

Hallo ich möcht mir ein Programm schreibe, das mir die Zeitspannne bis zu einem gewissen Zeitppunkt angibt.
allerdings soll das solange geschehen , bis die zeitspannne = 0 ist.


hier mein code :

Delphi-Quellcode:

     dif:=0;
     Zeit:=TIme();
     dif:= StrToTime('16:30:00') - Zeit;;

     repeat
       sleep(2000);
       Zeit:=TIme();
       dif:= StrToTime('16:30:00') - Zeit;;
       MaskEdit1.Text:=TimeToStr(dif);

       until   TimeToStr(dif) = '00:00:00';

Leider funktinoniert das nicht er hängt sich immer auf!
WEr weiß Rat ?
Vielen Dank

[Tormentor32]

bring mal ein

Delphi-Quellcode:

Application.ProcessMessages;

in die Schleife ein!

Aber generell ist es ungünstig, mit Strings zu arbeiten. Wenn du einen Zielzeitpunkt hast, dann kannst du die Differenz zum Beispiel über

Delphi-Quellcode:

Differenz := ZielZeitpunkt - Now;

berechnen.

[TeronG]

Sleep is imho nicht so toll (selbst mit Application.ProcessMessages) .. da schläft nämlich das ganze Programm...

Entweder du nutzt ein 'pause ohne sleep' (z.b. aus der codelib) oder du lässt das Sleep komplett weg und schreibst deinen Code in einen Timer....
Den kannste dann z.b. bei restzeit 0 auf enable := false machen.

[sebastian_buege]

Vielen Dank euch beiden ich habe es mit dem Timer realisiert und es finktiniert wunderbar. Ich bin immer wieder beeinrcukt wie schnell hier die antworten kommen.

Super noch mal vielen Dank