Forum: Sonstige Fragen zu Delphi
Delphi
by xe0n,
4. Jan 2006
ne also das hackt bei dirjetzt aber auch sry
hmmm wenn ich jetzt das prog starte fängt der nich an zu zählen wenn ich das edit4 aud 0 änder zählt der zb 10sec runter mach dann nicht weiter wenn ich auf 1 änder zählt er auch net bleibt dann sozud´sagen hängen
:( :( :(
if a = 0 then
repeat Application.ProcessMessages until strtoint(edit4.text)<>0 ;
so hab mal das...
Forum: Sonstige Fragen zu Delphi
Delphi
by xe0n,
4. Jan 2006
@ tommie-lie
das klinkt viel zu kompliziert ich glaube es gibt noch ne einfachere methode
so ungefähr richtig ??
if a=0 then
repeat Application.ProcessMessages; until begin
a:=strtoint(edit4.text); a<>0 end;
Forum: Sonstige Fragen zu Delphi
Delphi
by xe0n,
4. Jan 2006
@ tomsel jop genau :-D
und wie bau ich das oben ein ?
a:=strtoint(edit4.text);
if a = 0 then break;
das müsste ich ja ersetzen
Forum: Sonstige Fragen zu Delphi
Delphi
by xe0n,
4. Jan 2006
Hi @ all
gibt es eine möglichkeit eine Schleife anzuhalten (ja klar das geht wäre ja schlimm wenn nicht :roll:)
aber wie kann ich dann die schleife dann weiterlaufen lassen von genau dem punkt an wo die stehengeblieben ist :?:
procedure delay(MILLISEC:integer;edit2,edit3,edit4:tedit);
var
Tick:Dword;
x,a:integer;