delphi 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;

相关阅读 >>

format、formatdatetime、formatfloat 的用法

Delphi firedac 连接access mdb数据库的方法

Delphi sql server 主从表例子

Delphi 代码查询一个 ip 地址的归属地

Delphi 无法结束进程的程序

Delphi中使用android振动

Delphi实现音频传输

Delphi android 安卓中保持屏幕常亮

Delphi将图片缩放成指定大小

Delphi application.title在win7下失效了?

更多相关阅读请进入《Delphi》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...