Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как прервать бесконечный цикл? [D3, Paradox]

Antah © (2002-12-19 21:02:00)
Как прервать бесконечный цикл?

В старом добром Turbo Pascal это делалось так:
while TRUE
do begin
.....................
.....................
.....................
.....................
if KeyPressed then Exit;
end;

Есть что-либо столь же изящное и простое в Delphi?

Antah (2002-12-20 16:15:00) [1]
От автора:

Спасибо всем, кто откликнулся. Особенно спасибо KSergey, за полезную ссылку. Оказывается, вопрос мой весьма банален, более того - две недели назад уже обсуждался в этом Форуме, так что завсегдатаям приелся.

Так что прошу простить, если я кому-то сделал больно.

Удачи!

KSergey (2002-12-20 09:28:00) [2]
Я множество раз задавал вопросы, размещенные в факах и возникающие каждый день. Но это не причина для того, чтобы не продолжать напоминать людям о том, что надо бы читать факи и проч.

vopros (2002-12-20 09:22:00) [3]
>KSergey © (20.12.02 06:23)
Ты сам когда-нибудь прочитал весь форум?
Или попробуй в поиске найти нужную информацию.

sniknik (2002-12-20 08:18:00) [4]
Alexandr © (20.12.02 07:06)
тоже путаеш, в определенных кругах эту кнопку (reset) называют AnyKey, но никак не keyPressed. :о))

Alexandr (2002-12-20 07:06:00) [5]
как выйти из бесконечного цикла?
Как это нет keyPressed?
Кнопку reset на системном блоке видишь? Нажми ее и получишь результат.
даже программу переписывать не придется.
Выход из цикла 97%. (1% на тех, у кого кнопки reset нет, 1% на тех у кого она не подключена, и 1% на тех у кого она еть, но не смог найти\нажать)

KSergey (2002-12-20 06:23:00) [6]
Читайте в конце концов форум хоть немного.

http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1039682208&n=0

Anatoly Podgoretsky (2002-12-19 21:39:00) [7]
Это имеет смысл в консольном прилежении, а для этого есть воддержка в виде нескольких десятков функций

sniknik (2002-12-19 21:18:00) [8]
То же самое и в Delphi, только по моему ты путаеш Break завершить цикл, а Exit завершить процедуру. (или это я паскаль забыл?)

а вот изяшьного KeyPressed нет :-(( (мне его так не хватает), вместо этого нужно ожидание сообщения делать.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »