IBinaryWriter.WriteListEnd

Syntax

WriteListEnd;

Description

The WriteListEnd method writes an indicator of a page end into a binary file.

Example

Executing the example requires the 1.dat binary file to be present in the root of the disc C.

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;

After executing the example an array of integer numbers is written to the 1.dat file. The array is limited by the indicators of the beginning and the end of the page.