AppendText: ITextWriter;
The AppendText method opens a file for writing in a text format and puts a cursor to the end of a file.
Sub UserProc;
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 UserProc;
After executing the example the current date and time converted into a text format are written into the end of the 1.txt file.
See also: