IBinaryWriter.WriteListEnd

Синтаксис

WriteListEnd;

Описание

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

Пример

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

Sub UserProc;
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 UserProc;

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

См.также:

IBinaryWriter