It writes a string in a file and adds a carriage return.
Parameters
IntFileHandle: integer value that corresponds at the handle of the file.
Returned value
StrText: corresponds to the text string that may be place in the file.
Notes
None.
Example
// It check if a file exists
Esistente:=FileExists ('c:\text\first.txt');
// If it doesn't exist it creates it
If Esistente=False Then CreateFile('c:\text\first.txt');
// It opens the file
UnFile:=TextFileOpen('c:\text\first.txt',true);
// Writes the same string until doesn't reaches the end of file
While not TextFileEOF do