Delphi的文件读写函数竟然有文件尺寸限制！（反正960K的读不出，小文件正常）为什么？怎么办？重奖！

Question

Delphi的文件读写函数竟然有文件尺寸限制！（反正960K的读不出，小文件正常）为什么？怎么办？重奖！

Answer 1

不可能吧 用FileOpen FileRead FileWrite 10GB的文件我都用过没有问题!
说明:用INT64

Answer 2

请各位老大看以下代码, 我已经经过简化了,问题依然存在.
程序会有什么问题么?=================================================================
unit Unit1;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;
  fin: TextFile;implementation{$R *.dfm}procedure TForm1.Button1Click(Sender: TObject);
var s: string;
begin
  AssignFile(fin,'e:\x.txt');
  //一个简单的小文件可以, 改到一个大的文件(960K)就读不出!
  //指定的文件绝对是标准的文本文件,这个不必怀疑.  //我不用"流",是因为想用Readln简单的读取一行文本.  Reset(fin);  Readln(fin,s);
  Showmessage(s);  CloseFile(fin);
end;end.

Answer 3

对于文本文件可以用TStringList来处理好爽~~~~~~~
procedure TForm1.Button1Click(Sender: TObject);
var 
　TxtList:TStringList;
begin
  TxtList:=TStringList.Create;
  //一个简单的小文件可以, 改到一个大的文件(960K)就读不出!
  //指定的文件绝对是标准的文本文件,这个不必怀疑.  //我不用"流",是因为想用Readln简单的读取一行文本.
  try
    TxtList.LoadFromFile(YourFile);
    ShowMessage(TxtList[0]);
  finally
    TxtList.Free;
  end;
end;
//try above code! I think it can satify what you need

Answer 4

readln遇到#13就不读了。
坚决同意： blazingfire(烈焰) ！
处理分行文本最好用tstringlist!!!!!!

Answer 5

上百M的我都读过，呵呵。建议使用TStringList，更好用一些。