序列化TjsonObject的资源释放问题

zxm8513

已于 2024-12-27 16:13:56 修改

阅读量183

点赞数

分类专栏： DelphiXE相关技术我的应用为谁而生文章标签： git 服务器运维 windows

于 2024-12-26 00:02:53 首次发布

本文链接：https://blog.youkuaiyun.com/zxm8513/article/details/144731000

版权

我的应用为谁而生同时被 2 个专栏收录

191 篇文章 ¥19.90 ¥99.00

订阅专栏

超级会员免费看

DelphiXE相关技术

149 篇文章 ¥19.90 ¥99.00

订阅专栏

超级会员免费看

TjsonObject使用诸多问题，需要注意：

1、资源过度释放问题

function DetectSample(stext:string): smallint;
var i,j        : word;
    JO, JData  : TJSONObject;
    JaData     : TJSONObject;
    JbData     : TJSONObject;
    Jastr      : ansistring;
    jArr       : TJSONArray;
    Jval,jvala : Tjsonvalue;
    funcstr    : string;
    tstr       : ansistring;
begin
   result := -1;
   tstr := Str_Delte_scp(stext);
   JO := TJSONObject.ParseJSONValue(tstr) as TJSONObject;
   if (JO <> nil) and (jo.Count>0) then
   begin
      //Frmmain.Dspinfo('JoSize='+inttostr(jo.Count));
      jval := jo.Get('frm_hdr').JsonValue;
      if jval <> nil then
      begin
         Funcstr := jval.ToString;

了解本专栏