Hi，大家好，我是编程小6，很荣幸遇见你，我把这些年在开发过程中遇到的问题或想法写出来，今天说一说fileStream,希望能够帮助你!!!。

procedure TForm1.Button1Click(Sender: TObject);
var
   f1:TFileStream;
      filename:String;
begin
   OpenDialog1.Execute ;
   filename:=OpenDialog1.FileName ;
   f1:=TfileStream.Create (filename,fmopenread);
   try
      RichEdit1.Lines.LoadFromStream(f1);
      f1.Position:=0;
      Memo1.Lines.LoadFromStream(f1);
   finally
      f1.free;
   end;

end;

procedure TForm1.Button2Click(Sender: TObject);
var f1:TFileStream;
   filename:string;
begin
   savedialog1.Execute ;
   filename:=saveDialog1.FileName ;
   f1:=TFilestream.Create (filename,FmCreate);
   try
      RichEdit1.Lines.SaveToStream (f1);

   finally
      f1.Free ;
   end;
end;

今天的分享到此就结束了，感谢您的阅读，如果确实帮到您，您可以动动手指转发给其他人。