用ReadLn读文本文件，文件较大（960K）的竟然读不出！把文件名改为另一个较小的文本文件，其它代码不变，运行正常，这证明程序无误。我不

Question

用ReadLn读文本文件，文件较大（960K）的竟然读不出！把文件名改为另一个较小的文本文件，其它代码不变，运行正常，这证明程序无误。我不明白的是，960K算大吗？为什么？？？

Answer 1

var
  MyFile:TextFile;
begin
  AssignFile(MyFile,'c:\Text.txt');
  Reset(MyFile);//只读打开文件
  try
   {文件操作}
  Finally
    CloseFile(MyFile);
  End;
end;

Answer 2

可能不是文件大小的问题
而是行大小的问题
readln(f,s)至多读255个字符
试试
p:array[0..1000] of char;
readln(f,@P);
或者用TstringList