IBinaryReader.ReadListEnd

Синтаксис

ReadListEnd;

Описание

Метод ReadListEnd осуществляет чтение признака окончания страницы из двоичного файла.

Пример

Для выполнения примера предполагается наличие в корневом каталоге диска "С" двоичного файл с наименованием "1.dat".

Sub Main;

Var

File1: IFileInfo;

BinR: IBinaryReader;

IntList: IArrayList;

Begin

File1:=New FileInfo.Attach("c:\1.dat");

IntList:=New ArrayList.Create;

If File1.Exists Then

BinR:=File1.OpenBinaryReader;

BinR.ReadListBegin;

While Not BinR.EndOfList Do

IntList.Add(BinR.ReadInteger);

End While;

BinR.ReadListEnd;

End If;

Dispose File1;

End Sub Main;

После выполнения примера в массив «IntList» будут считаны целочисленные значения из файла «1.dat». После считывания массива считывается признак окончания страницы.

См.также:

IBinaryReader