怎样用text控件打开txt文件

Question

在VFP中可以使用下面一组函数操作非数据库/表文件。
FCHSIZE( )
FCLOSE( )
FCREATE( )
FEOF( )
FFLUSH( )
FGETS( )
FOPEN( )
FPUTS( )
FREAD( )
FSEEK( )
FWRITE( ) 
用VFP中用TEXT控件可以显示串，但我不知道它是否有直接读取TXT文件的方法，我觉得是没有，但可以用下面的方法达到效果：Local gnFileHandle,cString
gnFileHandle = FOPEN("c:\temp\test.txt")
IF gnFileHandle<0
    RETURN
ENDIF = FSEEK(gnFileHandle, 0, 0)      && Move pointer to BOF
cString = FREAD(gnFileHandle, 32765)
 = FCLOSE(gnFileHandle)           && Close the filethisform->Text1->Value = cString但Text控件显示的串长度有限（好象是254）,要显示大一些的文件，应该用Edit控件：thisform->Edit1->Value = cString---------------------
把上述代码放在适当的事件中即可。