我要打开的文件是文本文件,此文件有600行,但在MEMO1中只能看到168行,而且第168行只有一半,下面的就没有了。请问是什么原因。我的机器内存是足够大的(512MB)。procedure TForm1.Button1Click(Sender: TObject);
var
MyFile : TMemoryStream;
begin
if OpenDialog1.Execute then
begin
MyFile := TMemoryStream.Create;
MyFile.LoadFromFile(OpenDialog1.FileName);
memo1.Lines.LoadFromStream(MyFile);
MyFile.Free;
end;
end;
var
MyFile : TMemoryStream;
begin
if OpenDialog1.Execute then
begin
MyFile := TMemoryStream.Create;
MyFile.LoadFromFile(OpenDialog1.FileName);
memo1.Lines.LoadFromStream(MyFile);
MyFile.Free;
end;
end;
用文件流
MyFile: TFileStream;
begin
if OpenDialog1.Execute then
begin
MyFile:=TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
memo1.Lines.LoadFromStream(MyFile);
MyFile.Free;
end;
end;
begin
sFile :=TStringList.Create;
sFile.LoadFromFile(sFileName);
memo1.Lines.Add(sFile.Text);
sFile.Free ;
end;