TextFileReadLn

Prototype

StrText:=TextFileReadLn (intFileHandle)

Description

Reads a string from a file until the first carriage return.

Parameters

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

Returned value

StrText: corresponds to the text string read from 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:=TextFileReadln(inFile);

TextFileWriteln(outFile,Line);

End;

// Close the input file

TextFileClose(inFile);

// Close the output file

TextFileClose(outFile);