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 ;

좋은 웹페이지 즐겨찾기