Eof

www.kxcad.net Home > Electronic Index > Altium(Protel) Index

Declaration

function Eof(var F : TextFile) : Boolean

Description

The Eof function returns true if the file F is at the end of the file.

Example

AssignFile(OutputFile,NewFileName);

Rewrite(OutputFile);

AssignFile(InputFile,OldFileName);

Reset(InputFile);

Try

    While not EOF(InputFile) do

    Begin

        Readln(InputFile,Line);

        For I := 1 to Length(Line) Do

            Line[I] := UpperCase(Line[I]);

        Writeln(Outputfile, Line);

    End;

Finally

    CloseFile(InputFile);

End;

Close;

See also

Append, CloseFile, ChDir, Eoln, MkDir, Read, ReadLn, Reset, RmDir, Write and Writeln functions.