本文整理自网络,侵删。
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 10 下提示sharedactivitycontext错误的解决方法
Delphi : tstringlist的find,indexof和sort
Delphi 使用windows api(wincrypt)计算文件md5哈希,支持大文件
更多相关阅读请进入《Delphi》频道 >>