Процедура Read
Считывает значение переменной.
Объявление:
Типизированные файлы:
Procedure Read(F , V1 [, V2,...,Vn ] );
Текстовые файлы:
Procedure Read( [ Var F : Text; ] V1 [, V2,...,Vn ] );
Замечания:
Read считывает все символы до (но не включая) следующего маркера конца
строки или пока Eof(F) станет равным True. Read не переходит к следующей
строке после чтения. Если полученная в результате строка длиннее, чем
максимальная длина строковой переменной, то она усекается. После первого
Read, каждые последующие вызовы Read будут видеть маркер конца строки и
возвращать строку нулевой длины.
Используйте несколько обращений к ReadLn, чтобы считать несколько строковых
значений.
Когда включена опция Extended Syntax, процедура Read может считывать строки
с нулевым окончанием в нуль-основанные массивы символов.
Для переменных типа Integer или Real:
Read будет пропускать любые пробелы, метки табуляции или маркеры конца
строки, предшествующие числовой строке. Если числовая строка не
соответствует ожидаемому формату, происходит ошибка ввода/вывода, иначе
переменной присваивается полученное значение. Следующий Read начнется с
пробела, знака табуляции или маркера конца строки, которые завершали
числовую строку.
Пример:
Uses WinCrt, WinDos;
Var F : Text;
Ch : Char;
Begin
{ Получаем имя файла из командной строки }
Assign(F, ParamStr(1));
Reset(F);
While Not EOF(F) Do
Begin
Read(F, Ch);
Write(Ch); { Выводим содержимое файла на экран }
End;
End.
См. также: