Процедура 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.
 

См. также:  ReadKey,   Readln,  BlockWrite,  WriteLn


Реклама: