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 搭配hotkeyedit控件来解决问题

Delphi 实现禁用“任务管理器”

Delphi 10 下提示sharedactivitycontext错误的解决方法

Delphi daysbetween 用法片段

Delphi : tstringlist的find,indexof和sort

Delphi 使用windows api(wincrypt)计算文件md5哈希,支持大文件

Delphi 调出windows 系统时间设置对话框

Delphi opendialog使用方法

Delphi 根据开始和结束符取得中间字符串

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



打赏

取消

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

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

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

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

评论

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