вопрос

← →
Sh7777 (2007-06-02 21:14) [0]

как с помощью кнопки остановить цикл например
While not t1.eof do begin
.....
end;

← →
Kolan © (2007-06-02 21:18) [1]

Самое простое:
ЗА вести переменную-флаг
var IsExit: Boolean;
Например это может быть поле формы.

procedure DoSmth; begin IsExit := False; while not t1.eof do begin if IsExit then Break; &#133 end; end;

А в кнопке
IsExit := True;

← →
Юрий Зотов © (2007-06-02 21:21) [2]

var Flag: boolean; procedure TForm1.Button1Click(...); begin Flag := false end; ... Flag := true; while Flag and not t1.eof do begin ... Application.ProcessMessages end;

← →
DrPass © (2007-06-02 21:21) [3]

...но даже в этом случае нифига у тебя не получится :-)))
//по крайней мере, без ProcessMesssages

← →
Virgo_Style © (2007-06-02 21:22) [4]

Kolan © (02.06.07 21:18) [1]
Самое простое:
ЗА вести переменную-флаг

Самое сложное:
нажать такую кнопку, если в вышеприведенный код не вставить Application.ProcessMessages; :-)

← →
Fredy314 © (2007-06-02 21:22) [5]

Незабудь про
Application.ProcessMessages
Иначе просто зависнет твой цыклд и усё.

← →
Virgo_Style © (2007-06-02 21:22) [6]

вот налетели-то :-D

← →
ferr © (2007-06-02 21:23) [7]

Теперь понятно за что значки мастера дают =))

> Virgo_Style (02.06.2007 21:22:04) [4]

Не сложно, надо только подождать окончания цикла.

> ferr (02.06.2007 21:23:07) [7]

Ну это мастерам налета - налетчикам

запускать цикл в отдельном потоке, если надоест - при нажатии кнопки - убить поток

вопрос Найти похожие ветки