Скачать: CL | DM;

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

← →
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]

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

---

← →
Anatoly Podgoretsky ©   (2007-06-02 21:37) [8]

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

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

---

← →
Anatoly Podgoretsky ©   (2007-06-02 21:38) [9]

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

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

---

← →
VirEx ©   (2007-06-02 22:19) [10]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.012 c