fileStream

最新推荐文章于 2025-08-21 16:01:00 发布

原创最新推荐文章于 2025-08-21 16:01:00 发布 · 1.4k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#string

Delphi基础专栏收录该内容

43 篇文章

订阅专栏

博客给出了Delphi中文件读写操作的代码示例。包含Button1Click事件下的文件读取操作，通过OpenDialog选择文件，用TFileStream读取内容到RichEdit和Memo；还有Button2Click事件下的文件保存操作，通过SaveDialog选择保存路径，将RichEdit内容保存到文件。

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;