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 makeuniquefilename 创建文件名如果已经存在自动更改文件名

Delphi中的处理事件 application.processmessages

Delphi winapi: getwindowtext - 获取窗口标题

Delphi请求http接口中文乱码问题

Delphi分别连接ms sqlserver、oracle和access数据库的连接字符串

Delphi fmx检查应用程序状态更改

Delphi滚动窗口标题

Delphi richedit中插入带背景色文本的一种思路

Delphi启动/停止windows服务,启动类型修改为"自动"

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

转载请注明出处：木庄网络博客 » delphi filestream