Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.10.21;
Скачать: [xml.tar.bz2];

Вниз

Остановка цикла   Найти похожие ветки 

 
User_OKA   (2002-10-10 07:25) [0]

Здравствуйте мастера!!!
Есть программа с циклом. Необходимо приостановить его выполнение, для того, чтобы посмотреть данные на форме.
А затем, например по клавише Enter продолжить его выполнение.


 
MBo   (2002-10-10 07:38) [1]

1 путь - в процедуру с циклом передаешь начальное значение счетчика (или глоб. переменная), в ней проверяешь Application.processmessages и по некому флагу выходишь, затем снова запускаешь ее с места остановки
2 - выносишь в отдельный поток, suspend/resume


 
Viktor Kushnir   (2002-10-10 07:43) [2]

Способ кривоват, но все же...
Сделай внутри главного цикла еще один.

Типа:
Var
Pause :Boolean = false; //глобальная

For i:= 0 to do //это твой главный цикл
begin

While Pause do // это цикл паузы
Begin
//сюда можно что-нить написать, типа
Application.Processmessages;
End;

End;

И где-нить в обработчеке кнопки "Пауза/Продолжить"
напиши такое
Pause := not pause;


 
Anatoly Podgoretsky   (2002-10-10 07:58) [3]

Ты бы написал критерий остановки, значение, событие или как.
В принципе тебе уже ответили, только я бы структурно изменил это, на основе Viktor Kushnir © (10.10.02 07:43)

for i:= 0 to do begin
...
Application.Processmessages;
if Criteria then View // процедура (форма) просмотра
...
End;


 
KSergey   (2002-10-10 08:13) [4]

> Viktor Kushnir © (10.10.02 07:43)

Только для того, чтобы этот обработчик срабатывал, необходимо так же и в самом цикле вставлять Application.Processmessages, либо использовать ф-цию PeekMessage (что-то такое)


 
User_OKA   (2002-10-10 10:01) [5]

Спасибо мвстера!!!


 
REA   (2002-10-10 10:16) [6]

Сначала скажи зачем это? Надеюсь не для отладки?


 
User_OKA   (2002-10-10 13:22) [7]

Надеюсь нет!!!



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

Форум: "Основная";
Текущий архив: 2002.10.21;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.56 MB
Время: 0.048 c
14-68940
France
2002-09-27 15:09
2002.10.21
Телефон Siemens C35i


6-68911
Ksion
2002-08-18 17:50
2002.10.21
Как написа сокетны веб-сервер для интернет страницы?


1-68804
ZEE
2002-10-08 17:43
2002.10.21
Вызов Properties


14-68915
Феликс
2002-09-20 18:34
2002.10.21
Тупые анекдоты


1-68777
Chlavik
2002-10-11 17:45
2002.10.21
Обьявление функции.....





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский