IPB

> Read (процедура)
Форум
Загрузка...
 
Час быка
Час быка
Карта Интернета
Internet Map
Яндекс.Метрика

Язык:
Русский
English

 Read (процедура)


 - Для типизированных файлов, считывает компонент файла в переменную.
 - Для текстовых файлов, считывает одно или большее количество значений
   в одну или большее количество переменных

Объявление

Типизированные файлы

    Procedure Read(F , V1 [, V2,...,Vn ] );

Текстовые файлы

    Procedure Read( [ Var F : Text; ] V1 [, V2,...,Vn ] );

Режим

Windows, Real, Protected

Замечания

Для строковых переменных:

Read считывает все символы до (но не включая) следующего маркера конца строки или пока Eof(F) станет равным True. Read не переходит к следующей строке после чтения. Если полученная в результате строка длиннее, чем максимальная длина строковой переменной, то она усекается. После первого Read, каждые последующие вызовы Read будут видеть маркер конца строки и возвращать строку нулевой длины.

Используйте несколько обращений к ReadLn, чтобы считать несколько строковых значений.

Когда включена опция Extended Syntax, процедура Read может считывать строки с нулевым окончанием в нуль-основанные массивы символов.

Для переменных типа Integer или Real:

Read будет пропускать любые пробелы, метки табуляции или маркеры конца строки, предшествующие числовой строке. Если числовая строка не соответствует ожидаемому формату, происходит ошибка ввода/вывода, иначе переменной присваивается полученное значение. Следующий Read начнется с пробела, знака табуляции или маркера конца строки, которые завершали числовую строку.

См. также

Пример

Язык:
Русский
English


 { Пример программы для функций Eof, Read и Write (текстовые файлы) }

uses Crt, Dos;

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.
 
 К началу страницы 
Тэги: Read
 

Код для вставки: :: :: :: ГОСТ ::
Поделиться: //
 


-
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"