AppendBinary: IBinaryWriter;
Метод AppendBinary открывает файл для записи в двоичном виде и устанавливает курсор на конец файла.
Sub Main;
Var
File1: IFileInfo;
BynW: IBinaryWriter;
Begin
File1:=New FileInfo.Attach("c:\Work\1.txt");
If File1.Exists Then
BynW:=File1.AppendBinary;
BynW.WriteDateTime(DateTime.Now);
End If;
Dispose File1;
End Sub Main;
После выполнения примера в конец файла «1.txt» будут записаны текущие дата и время, преобразованные к двоичному виду.
См. также: