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