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

Вниз

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

 
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 надо делать главной форме.


 
Virgo_Style ©   (2005-03-16 10:11) [4]

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



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

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

Наверх




Память: 0.47 MB
Время: 0.038 c
3-1109582625
NeyroSpace
2005-02-28 12:23
2005.03.27
Нужно написать SQL запрос к таблицам EXCEL


1-1110624874
Checist [root]
2005-03-12 13:54
2005.03.27
ShowWindow глючит?


3-1109667661
kivadim
2005-03-01 12:01
2005.03.27
Отображение в отчете связи один-ко-многим


1-1110875782
Акбар
2005-03-15 11:36
2005.03.27
Провека существует файл или нет


1-1110880022
Muk
2005-03-15 12:47
2005.03.27
Программно нажать клавишу