Delphi实现类的持久化保存（DFM格式)

发布时间：2020-12-15 09:24:06 所属栏目：大数据来源：网络整理

导读：var inStream,outStream:TMemoryStream; begin inStream: =TMemoryStream. Create ; outStream: =TMemoryStream. Create ; try inStream.WriteComponent(self); inStream.Position: = 0 ; ObjectBinaryToText(inStream,outStream); outStream.Position: = 0

var inStream,outStream:TMemoryStream;
begin
   inStream:=TMemoryStream.Create;
   outStream:=TMemoryStream.Create;
   try
      inStream.WriteComponent(self);
      inStream.Position:=0;
      ObjectBinaryToText(inStream,outStream);
      outStream.Position:=0;
      outStream.SaveToFile(‘c.txt‘);
   finally
     FreeAndNil(inStream);
     FreeAndNil(outStream);
   end;
   //WriteComponentResFile(‘c.res‘,self);
end;

读取，反过来就是了，不多说。

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!