Pascal unit for handling text files.
Writing to file code example:
tf := CTextFile.Create('testcreate.txt');
tf.OpenFileWrite();
Writeln('The status of ' + tf.GetPath + ' is ' + BoolToStr(tf.GetStatus, 'OPEN', 'CLOSED'));
tf.WriteToFile('test text');
tf.WriteToFile('test text2');
tf.CloseFile();
Reading from file code example:
tfr := CTextFile.Create('testread2.txt');
tfr.OpenFileRead();
Writeln('The status of ' + tfr.GetPath + ' is ' + BoolToStr(tfr.GetStatus, 'OPEN', 'CLOSED'));
repeat
WriteLn(IntToStr(tfr.GetCurrentLine()) + ': ' + tfr.ReadFromFile());
until tfr.GetEof();
tfr.CloseFile();