IIOStream.Size

Синтаксис

Size: Integer;

Описание

Свойство Size определяет размер потока в байтах.

Пример

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.Size;
    End If;
    Dispose File1;
End Sub UserProc;

После выполнения примера в файл «1.dat» будет записана последовательность байтов и в переменной «i» будет содержаться размер потока, записанного в файл.

См.также:

IIOStream