WriteListBegin;
The WriteListBegin method writes an indicator of a page beginning into a binary file.
Executing this example requires a binary file 1.dat to be present in a 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 this example, an array of integer numbers is written into the file 1.dat. This array is limited by the indicators of the beginning and the end of the page.
See also: