H hfjacklee Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-30 #1 如何在txt文件中写入多行文字，又可以读出？？
C cozo Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-30 #3 你什么意思？ procedure var F:TextFile; begin AssignFile(F,'C:/Temp.txt'); Reset(F); Writeln(F,'The First Line'); Writeln(F,'The Second Line'); CloseFile(F); end; 读的时候把Writeln改成Readln(F,Str)；这一行就存在变量str里了。 用一个循环While not Eof(F) do就可以把整个文件一行行的读出来。
你什么意思？ procedure var F:TextFile; begin AssignFile(F,'C:/Temp.txt'); Reset(F); Writeln(F,'The First Line'); Writeln(F,'The Second Line'); CloseFile(F); end; 读的时候把Writeln改成Readln(F,Str)；这一行就存在变量str里了。 用一个循环While not Eof(F) do就可以把整个文件一行行的读出来。
