Тема: консольное приложение или чтоб не закрывалось
Показать сообщение отдельно
  #3  
Старый 26.02.2011, 16:17
Аватар для NumLock
NumLock NumLock вне форума
Let Me Show You
  
Регистрация: 30.04.2010
Адрес: Северодвинск
Сообщения: 5,426
Версия Delphi: 7, XE5
Репутация: 59586
По умолчанию
Код:
program Project1;

{$APPTYPE CONSOLE}

var
  c: Char;

begin
  while True do Read(c);
end.
__________________
Пишу программы за еду.
__________________
Ответить с цитированием