Delphi 序列化、反序列化、串行化、持久化
博客专区 > vga 的博客 > 博客详情
Delphi 序列化、反序列化、串行化、持久化
vga 发表于2年前
Delphi 序列化、反序列化、串行化、持久化
  • 发表于 2年前
  • 阅读 149
  • 收藏 0
  • 点赞 1
  • 评论 0

腾讯云 技术升级10大核心产品年终让利>>>   

摘要: 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 ;


共有 人打赏支持
粉丝 19
博文 314
码字总数 19186
×
vga
如果觉得我的文章对您有用,请随意打赏。您的支持将鼓励我继续创作!
* 金额(元)
¥1 ¥5 ¥10 ¥20 其他金额
打赏人
留言
* 支付类型
微信扫码支付
打赏金额:
已支付成功
打赏金额: