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

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 ;