Delphi 序列化、反序列化、串行化、持久化

2019独角兽企业重金招聘Python工程师标准>>>

function  ComponentToStr(AComponent: TComponent):  string ;

var

   BinStream: TMemoryStream;

   StrStream: TStringStream;

   s:  string ;

begin

   BinStream := TMemoryStream . Create;

   try

     StrStream := TStringStream . Create(s);

     try

       BinStream . WriteComponent(AComponent);

       BinStream . Seek( 0 , soFromBeginning);

       ObjectBinaryToText(BinStream, StrStream);

       StrStream . Seek( 0 , soFromBeginning);

       Result := StrStream . DataString;

     finally

       StrStream . Free;

     end ;

   finally

     BinStream . Free

   end ;

end ;

 

function  StrToComponent( const  Value:  string ;

   Instance: TComponent): TComponent;

var

   StrStream: TStringStream;

   BinStream: TMemoryStream;

begin

   StrStream := TStringStream . Create(Value);

   try

     BinStream := TMemoryStream . Create;

     try

       ObjectTextToBinary(StrStream, BinStream);

       BinStream . Seek( 0 , soFromBeginning);

       Result := BinStream . ReadComponent(Instance);

     finally

       BinStream . Free;

     end ;

   finally

     StrStream . Free;

   end ;

end ;

转载于:https://my.oschina.net/u/582827/blog/614148