Position: Integer;
The Position property determines a position in a stream.
Sub UserProc;
Var
File1: IFileInfo;
BinW: IBinaryWriter;
Stream: IIOStream;
i: Integer;
Begin
File1 := New FileInfo.Attach("c:\1.dat");
If File1.Exists Then
BinW := File1.OpenBinaryWriter(True);
Stream := BinW.Stream;
For i := 65 To 90 Do
Stream.WriteByte(i);
End For;
i := Stream.Position;
End If;
Dispose File1;
End Sub UserProc;
After executing the example the bytes sequence is written into the 1.dat file and the "i" variable contains number of the position in a stream.
See also: