IFileInfo.AppendText

Синтаксис

AppendText: ITextWriter;

Описание

Метод AppendText открывает файл для записи в текстовом виде и устанавливает курсор на конец файла.

Пример

Sub Main;

Var

File1: IFileInfo;

TextW: ITextWriter;

Begin

File1:=New FileInfo.Attach("c:\Work\1.txt");

If File1.Exists Then

TextW:=File1.AppendText;

TextW.WriteDateTime(DateTime.Now);

End If;

Dispose File1;

End Sub Main;

После выполнения примера в конец файла «1.txt» будут записаны текущие дата и время, преобразованные к текстовому виду.

См. также:

IFileInfo