Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c