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 ;


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

  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值