IBinaryWriter.WriteListEnd

Синтаксис

WriteListEnd;

Описание

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

Пример

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

Sub Main;

Var

File1: IFileInfo;

BinW: IBinaryWriter;

i: Integer;

Begin

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

If File1.Exists Then

BinW:=File1.OpenBinaryWriter(True);

BinW.WriteListBegin;

For i:=65 To 90 Do

BinW.WriteInteger(i);

End For;

BinW.WriteListEnd;

End If;

Dispose File1;

End Sub Main;

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

См.также:

IBinaryWriter