9687850865
* (all files)
* stripped svn header
* minor cleanups
; use following command to find out the history of files:
git log
git log --follow
git blame
git annotate
24 lines
501 B
Plaintext
24 lines
501 B
Plaintext
/* Harbour Project source code
|
|
Test program for new class that reads a file one line at a time
|
|
http://harbour-project.org/
|
|
Donated to the public domain on 2001-03-08 by David G. Holm <dholm@jsd-llc.com>
|
|
*/
|
|
|
|
#require "hbmisc"
|
|
|
|
PROCEDURE Main( cFile )
|
|
|
|
LOCAL oFile := TFileRead():New( cFile )
|
|
|
|
oFile:Open()
|
|
IF oFile:Error()
|
|
? oFile:ErrorMsg( "FileRead:" )
|
|
ELSE
|
|
DO WHILE oFile:MoreToRead()
|
|
? oFile:ReadLine()
|
|
ENDDO
|
|
oFile:Close()
|
|
ENDIF
|
|
|
|
RETURN
|