Как прервать выполнение программы?

← →
tytus (2005-03-16 09:55) [0]

Добрый день господа. В программе есть цикл от 1 до размера файла (до 20 метров), в котором читается каждый байт и ищется два подряд идущих однинаковых байта (142). На форме хочу добавить кнопку "Отмена", и чтобы кликая по ней цикл прерывался или закрывалась форма фообще. На форме есть прогрессбар, который рисуется через Application.Processmessage. Но нажатие на кнопку ничего не дает (ее обработчик просто закрывает форму Close). Помогите как это правильно сделать.

← →
КаПиБаРа © (2005-03-16 09:57) [1]

При нажатии на кнопку выставляй флаг.
В цикле проверяй состояние флага и если он выставлен завершай цикл.

← →
KSergey © (2005-03-16 10:00) [2]

isTerminate: Boolean;
.............

isTerminate := FALSE;

while NOT File.Eof AND NOT isTerminate do
...

procedure TForm1.ButtonStopClick(..)
begin
isTerminate := TRUE;
end;

← →
Anatoly Podgoretsky © (2005-03-16 10:11) [3]

Close надо делать главной форме.

File of byte + Read ? Читай лучше в буфер. Тогда прерывание работы может и не понадобиться.

Как прервать выполнение программы? Найти похожие ветки