Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.01.14;
Скачать: CL | DM;

Вниз

Как нажатием кнопки на своей форме прервать цикл   Найти похожие ветки 

 
Electric   (2001-12-24 05:28) [0]

Как нажатием кнопки на своей форме прервать цикл в своей программе ?


 
KS   (2001-12-24 05:42) [1]


var
StopFlag: Boolean;

procedure Calculating;
var
I: Integer;
D: Integer;
begin
StopFlag := False;
for I := 0 to 100000 do begin
//******************************



//******************************
Application.ProcessMessages;
if StopFlag then Break;
end;
end;

procedure TForm1.btnStopClick(Sender: TObject);
begin
StopFlag := True;
end;


 
Electric   (2001-12-24 05:52) [2]

Большое спасибо, то самое. Это моя первая программа и первый вопрос.
Я его ошибочно послал и в API. Виноват.



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

Текущий архив: 2002.01.14;
Скачать: CL | DM;

Наверх




Память: 0.46 MB
Время: 0.011 c
14-42556
AlexKniga
2001-11-19 15:17
2002.01.14
Сброс пароля на BIOS


1-42415
d()c666
2001-12-27 02:08
2002.01.14
символ эквивалентный переходу на другую строку...


1-42515
Simonaln
2001-12-26 11:32
2002.01.14
Расстояние между строками в Memo


1-42465
Smok_er
2001-12-20 04:37
2002.01.14
Вращение TImage


14-42554
Merlin
2001-11-02 10:10
2002.01.14
Новости VCL, что посоветуете?