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;

相关阅读 >>

Delphi 判断当前网络连接方式

Delphi下遍历文件夹下所有文件的递归算法

Delphi2007 读取得unicode文本

Delphi获取闲置时间

Delphi blockread和blockwrite读写文件

Delphi idhttp与cookie

Delphi idftp连不上ftp服务器的解决方法

Delphi 中 使用 tidhttp 提交post数据

Delphi windows 编程[23] - 快捷键资源

Delphi 最全_日期格式_dateutils时间单元说明

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



打赏

取消

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

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

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

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

评论

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