我要打开的文件是文本文件,此文件有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;

解决方案 »

  1.   

    var MyFile: TFileStream ;
    用文件流
      

  2.   

    var 
    MyFile: TFileStream; 
    begin 
    if OpenDialog1.Execute then 
    begin 
    MyFile:=TFileStream.Create(OpenDialog1.FileName, fmOpenRead); 
    memo1.Lines.LoadFromStream(MyFile);
    MyFile.Free; 
    end; 
    end; 
      

  3.   

    我试过了这此流组件,还是一样:TFileStream, TMemoryStream, TStream.
      

  4.   

    var sFile:TStringList;
    begin
      sFile :=TStringList.Create;
      sFile.LoadFromFile(sFileName);
      memo1.Lines.Add(sFile.Text);
      sFile.Free ;
    end;
      

  5.   

    但我是要把此文本文件存到SQL200的TEXT字段中,应怎样做?是不是一定要用流来实现呢?