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 xe6 android 查看电池信息

Delphi 无法调用cmd nbtstat命令解决办法

Delphi xe tparallel.for循环

Delphi android windows ios通用获取程序版本

Delphi获取mac地址

Delphi 检查屏幕是否处于锁屏或关闭状态

Delphi 由类名获取父类

Delphi图像匹配算法

Delphi中message消息的使用方法

idftp无法设置transfertype属性

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



打赏

取消

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

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

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

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

评论

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