L
lah998
Unregistered / Unconfirmed
GUEST, unregistred user!
为什么小文件能打开，大文件就不能打开,报告扩大内存出错!请各位给我出出主意，想什么办法？
最好付上代码，先谢了！
procedure TForm1.Button1Click(Sender: TObject);
var
Source, Dest: TMemoryStream;
begin
Source := TMemoryStream.Create;
Dest := TMemoryStream.Create;
try
//我这个文件有540M. 报告扩大内存出错!
Source.LoadFromFile('c:/English.dat');//打开小文件就可以
finally
Source.Free;
Dest.Free;
end;
end;
最好付上代码，先谢了！
procedure TForm1.Button1Click(Sender: TObject);
var
Source, Dest: TMemoryStream;
begin
Source := TMemoryStream.Create;
Dest := TMemoryStream.Create;
try
//我这个文件有540M. 报告扩大内存出错!
Source.LoadFromFile('c:/English.dat');//打开小文件就可以
finally
Source.Free;
Dest.Free;
end;
end;