Dauerschleife unterbrechen

**vip11**

hallo

ich hab nen problem:
ich hab nen programm geschrieben das immer wieder die selbe aktion ausführen soll wenn man einen button drückt und damit aufhören soll wenn ich auf einen anderen drück. nur hab ich das problem das das programm hängt wenn ich den start button klick.

zusammenfalten · markieren

Delphi-Quellcode:

			procedure TForm1.klicker;

begin

while onoff > 0 do

begin

//...//

end;

end;

procedure TForm1.Button1Click(Sender: TObject);

begin

onoff := 1;

klicker;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

onoff := 0;

end;

mfg vip11

p.s. hab sufu benutzt aber nichts gefunden

[edit=mkinzler]Code-Tag durch Delphi-Tag ersetzt Mfg, mkinzler[/edit]

Dauerschleife unterbrechen

Dauerschleife unterbrechen

Forumregeln