schleife unterbrechech und fortsetzen?

[tomsel]

Delphi-Quellcode:

if a=0 then
repeat Application.ProcessMessages; until begin
a:=strtoint(edit4.text); a<>0 end;

Nee, jetzt hakt's.

Guckst du hier:

Delphi-Quellcode:

procedure delay(MILLISEC:integer;edit2,edit3,edit4:tedit);
var
Tick:Dword;
x,a:integer;
b:extended;
begin
edit1.text:=inttostr(GetTickCount);
MILLISEC:=strtoint(edit2.text);
Tick := GetTickCount + DWord(Millisec);
while (Millisec > 0) do begin
Application.ProcessMessages;
       Millisec := Tick - GetTickcount;
       b:=millisec;
       b:=b/1000;
       b:= RoundTo(b,-0);
       edit3.text:=floattostr(b);
       a:=strtoint(edit4.text);
       while a <> 0 do begin
         Application.ProcessMessages;
         a:=strtoint(edit4.text);
       end;
end;
end;