|
Registriert seit: 29. Mär 2003
563 Beiträge
Delphi 2006 Architect
|
8. Apr 2003, 18:39
Hallo,
du mußt hier zwei Dinge auseinanderhalten, nämlich die Gefahr einer Endlosschleife, und die CPU-Auslastung während die Schleife läuft, also hier folgendes:
Um die Endlosschleife zu vermeiden, mußt Du auf jeden Fall (in deinem ersten Posting, )
(s1+warte)=s2
ersetzen durch
(s1+warte) >= s2
Während die Schleife läuft wird die CPU aber immer auf volle Auslastung gehen,woher soll die Anwendung denn wissen, daß sie diese Schleife nicht so schnell wie möglich durchlaufen soll.
Bei einer echten Turbo Pascal (DOS) Anwendung ist das auch in Ordnung.
Bei einer Windowsanwendung würde man das Problem anders lösen.
Gruss
Wolfgang
|