Thema: Delphi in turbo pascal

Einzelnen Beitrag anzeigen

arnoldo

Registriert seit: 8. Dez 2002
Ort: Berlin
131 Beiträge
 
Delphi 7 Personal
 
#8
  Alt 7. Apr 2003, 21:19
Hallo,

ich denke es liegt am folgenden:

was passiert wenn beispielsweise s1=49 sekunden und warte=12
ist? Dann wäre s1+warte > 60s und somit eine Endlosschleife!
Da s2 nie > 60 sein kann!

Das müsste klappen:

Code:
s3:=s1+warte;
if s3>59 then dec(s3,60);
repeat
 gettime(h,m,s2,hun2);
until s3=s2;
  Mit Zitat antworten Zitat