<< Click to Display Table of Contents >> Navigation:  Macro's > Macro: commando's en parameters > Macro: inleescommando's > Macro: lezen uit tekstbestand > Macrofunctie TfEOF

Doel:

Test op einde van het tekstbestand

 

Algemene notatie:

TfEOF( FileIndex )

 

Voorbeeld:

TfOpenForRead( 1, 'test.txt' , ';' )

While( TfEOF(1) , = , FALSE )

   TfReadln(1,a,b)

   Text('a=',a,' b=',b)

end

TfClose( 1 )