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

← →
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. :о))

Я множество раз задавал вопросы, размещенные в факах и возникающие каждый день. Но это не причина для того, чтобы не продолжать напоминать людям о том, что надо бы читать факи и проч.

← →
Antah (2002-12-20 16:15) [8]

От автора:

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

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

Удачи!

Как прервать бесконечный цикл? Найти похожие ветки