SuperObject 使用心得

时间：2011-02-23 来源：潺缘

下面是我遇到问题的产生原因与解决方法

类型声明：

type

TNRA=record
end;

TNRB=record
     A:String;
     B:Integer;
end;

TNRTest=record
    A:TNRA;
    B:TNRB;
end;

处理代码：

var
  Test:TNRTest;
  CTX:TSuperRttiContext;
  Obj:ISuperObject;
  JsonString:String;
begin
  {对Test进行处理}
  CTX:=TSuperRttiContext.create;
  try
      Obj:=CTX.AsJson<TNRTest>(Test);
      JsonString:=Obj.asJson;
      
      {对JsonString进行处理}
  finally
      CTX.Free;
  end;

反处理代码：

var
  Test:TNRTest;
  CTX:TSuperRttiContext;
  JsonString:String;
begin
  {获取JsonString}
  CTX:=TSuperRttiContext.create;
  try
      Test:=CTX.AsType<TNRTest>(SO(JsonString));   //这里出现错误！   
      {对Test进行处理}
  finally
      CTX.Free;
  end;
end;

在对上面的代码进行反处理的时候，就会发生错误！类型不兼容错误！

错误的原因是TNRA是空的，在TNRA里加几个Field后，程序运行正常！

总结：SuperObject在对上面这种况没有进行处理，就要求我们尽力避免上述情况！

相关阅读更多 +