TextFileRead

Prototype

StrText:=TextFileRead (intFileHandle)

Description

Reads a text string from a file.

Parameters

IntFileHandle: integer value that corresponds at the handle of the file.

Returned value

StrText: corresponds to the text string read by the file.

Notes

None.

Example

// Delete output file, if exists

DeleteFile('c:\text\output.txt');

// Create a new output empty file

CreateFile('c:\text\output.txt');

// Open output file for text writing

OutFile:=TextFileOpen('c:\text\output.txt',true);

// Open input file for text reading

InFile:=TextFileOpen('c:\text\output.txt',false);

// Repeat until is at end of input file

While not TextFileEOF(InFile) do

Begin

Line:=TextFileRead(inFile);

TextFileWrite(outFile,Line);

End;

// Close the input file

TextFileClose(inFile);

// Close the output file

TextFileClose(outFile);