var
MyTextFile:TextFile;
s:string;
begin
AssignFile(MyTextFile,'MyTextFile.txt');
reset(MyTextFile);
{文件读取}
CloseFile(MyTextFile);
end;
如何在文件读取过程中直接读第十行的字符串!不调用十次readln(MyTextFile,s);
...全文
696打赏收藏
文本文件的定位问题!
var MyTextFile:TextFile; s:string; begin AssignFile(MyTextFile,'MyTextFile.txt'); reset(MyTextFile); {文件读取} CloseFile(MyTextFile); end; 如何在文件读取过程中直接读第十行的字符串!不调用十次readln(MyTextFile,s);