Облака / Clouds
    Go to Copy.com
    Copy.com
    The bast cloud service
    Get 20 GB free!!!
    Support WebDav.
    Show more >>

    Go to Dropbox.com
    Dropbox.com
    time-tested cloud storage
    Support WebDav.
Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Создание ярлыка на Рабочем столе
   Категория: Приложение
  Как произвести поиск файлов во вложенных папках
   Категория: Файловая система
  Перекодировка в DBASE
   Категория: Базы данных
  Округление времени до 5 мин
   Категория: Базы данных
  Список ошибок BDE
   Категория: Базы данных
  Undo в memo
   Категория: Компоненты
  Определение размера каталога
   Категория: Файловая система
  Шифрование текста по паролю
   Категория: Текст и строки
  Узнать все IP-адреса компьютера
   Категория: Интернет и Сети
  Вывод текста на канву Canvas
   Категория: Компоненты

Delphi - Справочник: Input

ABCDEFGHIJKLMNOPQRSTUVWXYZ

  << Вернуться  

 Input
var Input : TextFile;
Переменная (Unit System)
Определяет стандартный входной текстовый файл
Описание:
Переменная Input предопределена Delphi для обращения к стандартному входному текстовому файлу.

Это обычная консоль, но она может быть заменена любым файлом, используя инструкцию AssignFile.

Input используется в Read, ReadLn и Seek процедурах текстового файла. Он может быть опущен в этих командах, однако он является файлом, заданным по умолчанию.
Пример кода: Считывает и записывает в консоль (устройство)

program Project1; {$AppType CONSOLE} uses SysUtils; var name : string; begin // Консольное приложение имеет Input и Output консоли // связанные и открытые от нашего имени. WriteLn(Output, 'Please enter your name'); ReadLn(Input, name); // И мы даже не должны указывать имена этих файлов WriteLn('Your name is '+name); WriteLn(''); WriteLn('Press enter to exit'); ReadLn(name); end.

Результат:
Example console output :

Please enter your name
Joe Bloggs
Your name is Joe Bloggs

Press enter to exit

  << Вернуться