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

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.