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

Posted 2021-12-30 jijm123

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;

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