AppendText: ITextWriter;
Метод AppendText открывает файл для записи в текстовом виде и устанавливает курсор на конец файла.
Sub UserProc;
Var
File1: IFileInfo;
TextW: ITextWriter;
Begin
File1 := New FileInfo.Attach("c:\Work\1.txt");
If File1.Exists Then
TextW := File1.AppendText;
TextW.Encoding := CodePage.UTF8;
TextW.WriteDateTime(DateTime.Now);
End If;
Dispose File1;
End Sub UserProc;
После выполнения примера в конец файла «1.txt» будут записаны текущие дата и время, преобразованные к текстовому виду. При работе с файлом будет использоваться кодировка UTF-8.
См. также: