|
var Output : TextFile;
Переменная Output предопределена Delphi, для того чтобы обратиться к стандартному текстовому выходному файлу. Это обычная консоль, но она может быть заменена любым файлом, используя инструкцию AssignFile.
Output используется в Write, WriteLn и Seek процедурах текстового файла. Он может быть опущен в этих командах, однако он является файлом, заданным по умолчанию.
|
|
program Project1;
{$AppType CONSOLE}
uses
SysUtils;
var
name : string;
begin
// Консольное приложение имеет консоль Input и Output
// назначенные и открытые от нашего имени.
WriteLn(Output, 'Пожалуйста, введите своё имя');
ReadLn(Input, name);
// И мы даже не должны указывать имена этих файлов
WriteLn('Ваше имя '+name);
WriteLn('');
WriteLn('Нажмите enter для выхода');
ReadLn(name);
end.
|
