Jakie polecenie nalezaloby przypisac do Buttona aby zatrzymac petle For ?
Mam program do kopiowania danych, i podczas kopiowania (powiedzmy w polowie) chcialbym przerwac to kopiowanie !
Pozdrawiam ! ;-)
0
0
procedure TForm1.btnPrzerwijClick(Sender: TObject);
begin
przerwij := true;
end;
a oto przykładowa pętla
procedure Kopiuj;
begin
przerwij := false;
for i := 0 to 10000 do
begin
//wykonaj jakieś tam operacje
Application.ProcessMessages;//obługa komuniaktów
if przerwitj then exit;
end;
end;
myślę, że powinno działać
0
Dzieki ! :-) [browar]
0
Lub zamiast exit możesz użyć Break. :-)
0
Lub zamiast exit możesz użyć Break. :-)
Jeśli mnie pamięć nie myli, to Break cofa na początek pętli!
0
Lub zamiast exit możesz użyć Break. :-)
Jeśli mnie pamięć nie myli, to Break cofa na początek pętli!
Myli. Break kończy pętle, Continue przechodzi do następnej iteracji a Exit wychodzi z procedury.
[b]PS[/b]: p_k - miało być bez spraw religijnych (to do usuniętego postu)
0
Błądzenie jest rzeczą ludzką!
0
nie byłoby rozsądniej zastosowac TThreada (stworzyc klase dziedziczaca)