Hi @ all
gibt es eine möglichkeit eine Schleife anzuhalten (ja klar das geht wäre ja schlimm wenn nicht
)
aber wie kann ich dann die schleife dann weiterlaufen lassen von genau dem punkt an wo die stehengeblieben ist
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);
if a = 0 then break;
end;
end;
so hier mal schnell nen code damit es etwas anschaulicher wird.
Ich möchte die schleife stoppen und wieder fortsetzen.
das break bricht leider die komplette schleife /procedure ab
hoffentlcih hat jemand ne Idee würde mich freuen
thx im vorraus
mfg Xe0n