刘永锋的专栏

源码主页:https://gitee.com/lim417/DataSetConverter4Delphi?_from=gitee_search功能:dataset转json(TObjectJson)

memo1.text := {"MYGUID":"s3","存款金额":30000.,"规格表示":null}例子1:var item, jo: ISuperObject;begin jo := SO(Memo1.Text); for item in jo do begin Memo2.Lines.Add(item.AsJSon(False, False)); end;end;例子2:var jo: ISuperObject; item: TSuperAvlE.

var  a: ISuperObject;beign  a := so;  a.s['name'] := '张三';  a.o['data'] := a;  end;如上代码，这是一个自关联的代码，接口引用计数会错误，从而导致内存泄漏。...