Форум: "Базы";
Текущий архив: 2003.01.16;
Скачать: [xml.tar.bz2];
ВнизКак прервать бесконечный цикл? Найти похожие ветки
← →
Antah (2002-12-19 21:02) [0]Как прервать бесконечный цикл?
В старом добром Turbo Pascal это делалось так:
while TRUE
do begin
.....................
.....................
.....................
.....................
if KeyPressed then Exit;
end;
Есть что-либо столь же изящное и простое в Delphi?
← →
sniknik (2002-12-19 21:18) [1]То же самое и в Delphi, только по моему ты путаеш Break завершить цикл, а Exit завершить процедуру. (или это я паскаль забыл?)
а вот изяшьного KeyPressed нет :-(( (мне его так не хватает), вместо этого нужно ожидание сообщения делать.
← →
Anatoly Podgoretsky (2002-12-19 21:39) [2]Это имеет смысл в консольном прилежении, а для этого есть воддержка в виде нескольких десятков функций
← →
KSergey (2002-12-20 06:23) [3]Читайте в конце концов форум хоть немного.
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1039682208&n=0
← →
Alexandr (2002-12-20 07:06) [4]как выйти из бесконечного цикла?
Как это нет keyPressed?
Кнопку reset на системном блоке видишь? Нажми ее и получишь результат.
даже программу переписывать не придется.
Выход из цикла 97%. (1% на тех, у кого кнопки reset нет, 1% на тех у кого она не подключена, и 1% на тех у кого она еть, но не смог найти\нажать)
← →
sniknik (2002-12-20 08:18) [5]Alexandr © (20.12.02 07:06)
тоже путаеш, в определенных кругах эту кнопку (reset) называют AnyKey, но никак не keyPressed. :о))
← →
vopros (2002-12-20 09:22) [6]>KSergey © (20.12.02 06:23)
Ты сам когда-нибудь прочитал весь форум?
Или попробуй в поиске найти нужную информацию.
← →
KSergey (2002-12-20 09:28) [7]Я множество раз задавал вопросы, размещенные в факах и возникающие каждый день. Но это не причина для того, чтобы не продолжать напоминать людям о том, что надо бы читать факи и проч.
← →
Antah (2002-12-20 16:15) [8]От автора:
Спасибо всем, кто откликнулся. Особенно спасибо KSergey, за полезную ссылку. Оказывается, вопрос мой весьма банален, более того - две недели назад уже обсуждался в этом Форуме, так что завсегдатаям приелся.
Так что прошу простить, если я кому-то сделал больно.
Удачи!
Страницы: 1 вся ветка
Форум: "Базы";
Текущий архив: 2003.01.16;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.01 c