Останов программы до нажатия клавиши. TP7

[pitby]

Недавно пересел с изученного basic'a на неизведанный tp 7.1. Мне нужно, чтобы прога в процессе выполнения тормознула и подождала, пока я нажму эникэй, и потом работала дальше. В basic'e были команды stop,pause,system. Есть ли такие команды в tp?

[Oscar]

basic - это не тот, что VBA? а тот что с циферками в каждой строчке? ))
ностальгия :-)

по вопросу:

Код: Выделить всё

begin
	Write('Press any key to continue...');
	Readln;
	Write('Thank you!');
end.

если будет ждать нажатия Enter, вместо Readln можно попробовать readkey

P.S. было бы не плохо, если бы тема сообщения отображала суть вопроса

[pitby]

Неа... QBasic. Но надеюсь, что ностальгию не обломал)
За код сенкс, про ридкей я знаю, но он играет немного иную роль. Значит, буду юзать кидлн без параметров.

[Игорь Акопян]

вспоминается конструкция

Код: Выделить всё

repeat

until KeyPressed;

это не с ТП? склероз...

[BBB]

[quote="Игорь Акопян"]вспоминается конструкция

Код: Выделить всё

repeat
until KeyPressed][/quote]
Тогда уж (чтобы не оставлять в буфере клавиатуры сделанных нажатий, которых может быть более одного, если нажата функциональная клавиша):
[code]while KeyPressed do
  ch := ReadKey;

[Игорь Акопян]

BBB, это просто всплыло в памяти, типа "делать чего-то пока не топнули кнопку". Акцент собсно на функции KeyPressed был

[pitby]

Извиняюс, походу возникла ещё одна проблемка. Как сделать экзэшник из откомпиленого кода?

[YurikGL]

вспоминается конструкция

Код: Выделить всё

repeat
until KeyPressed][/quote]
Тогда уж (чтобы не оставлять в буфере клавиатуры сделанных нажатий, которых может быть более одного, если нажата функциональная клавиша):
[code]while KeyPressed do
  ch := ReadKey;

Вспоминается конструкция

Код: Выделить всё

  ch:=ReadKey;
  if ch=#00 then ch:=ReadKey;

Если просто ch := ReadKey и нажата клавиша, возвращающая два байта, то в коммандную строку может второй байт возвратиться и отобразиться в ней.

Как сделать экзэшник из откомпиленого кода?

[/quote]
Ты его во что компилишь?

[AiK]

pitby, только не надо делать топик обо всём, ок?

[BBB]

[quote="YurikGL"][quote="BBB"][quote="Игорь Акопян"]вспоминается конструкция

Код: Выделить всё

repeat
until KeyPressed][/quote]
Тогда уж (чтобы не оставлять в буфере клавиатуры сделанных нажатий, которых может быть более одного, если нажата функциональная клавиша):
[code]while KeyPressed do
  ch := ReadKey;

[/quote]

Вспоминается конструкция

Код: Выделить всё

  ch:=ReadKey;
  if ch=#00 then ch:=ReadKey;

Если просто ch := ReadKey и нажата клавиша, возвращающая два байта, то в коммандную строку может второй байт возвратиться и отобразиться в ней.[/quote]
Ну да, тоже вариант.
Кстати, до меня дошло, что мой пример был в корне не верный Там нет никакого ожидания нажатия. Там не получится никакого ожидания, ведь KeyPressed "сходу" вернет FALSE, и цикл сразу же завершится.
Правильнее, пожалуй, так:

Код: Выделить всё

repeat
  ch:= ReadKey;
until (NOT KeyPressed);

То есть, очень похоже на то, как было в примере у Игорь Акопян.