Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Паскаль, Turbo Pascal, PascalABC.NET
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 09.07.2012, 10:16   #1
DIMA1605
Пользователь
 
Аватар для DIMA1605
 
Регистрация: 30.06.2012
Сообщений: 11
Радость Завершение программы.

Подскажите, пожалуйста, что надо сделать, чтобы программа, при использовании модуля CRT, заканчивалась при нажатии не любой клавиши, а определенной, например 's'.
DIMA1605 вне форума Ответить с цитированием
Старый 09.07.2012, 11:36   #2
Serge_Bliznykov
Старожил
 
Регистрация: 09.01.2008
Сообщений: 26,238
По умолчанию

очевидно же, добавить цикл и выход из этого цикла в том случае, когда нажата нужная клавиша.

Ваш Кэп!

ps. в коде это може выглядеть примерно так:
Код:
...
var  ch : char;
...
begin
   repeat
     ТУТ ОСНОВОЕ ТЕЛО ПРОГРАММЫ
     if KeyPressed then begin
        ch := ReadKey; 
        if ch=#0 then ReadKey; {если нажата управляющая клавиша - очистим буфер клавы}
     end.
   until ch='s';
end.
Serge_Bliznykov вне форума Ответить с цитированием
Старый 09.07.2012, 12:21   #3
DIMA1605
Пользователь
 
Аватар для DIMA1605
 
Регистрация: 30.06.2012
Сообщений: 11
По умолчанию

Спасибо большое! Я просто недавно заинтересовался программированием, и многое еще не понятно
DIMA1605 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
завершение работы программы oranger Помощь студентам 2 25.06.2012 22:51
Непонятное завершение программы avtomat Общие вопросы Delphi 0 19.06.2012 15:24
Некорректное завершение программы KBO БД в Delphi 8 05.05.2012 19:20
Завершение программы Michael Gepard C# (си шарп) 1 20.02.2012 05:02
Моментальное завершение программы. Г. Павел Помощь студентам 2 23.10.2011 11:59