delphi 内存泄漏检测

FormCreate 加一条
ReportMemoryLeaksOnShutdown:=true;

退出程序的时候,如果有内存泄漏,会弹出一个对话框.

*1就是有1个,3就是有3个,2就是有2个

13 - 20 bytes: TJSONNumber x 1, TJSONObject x 1, TJSONString x 3, TJSONPair x 2, UnicodeString x 2
21 - 28 bytes: UnicodeString x 1, Unknown x 1
29 - 36 bytes: UnicodeString x 1
37 - 44 bytes: TList<System.JSON.TJSONPair> x 1

 

jo := TJSONObject.ParseJSONValue('{"name": "John Smith", "age": 33}') as TJSONObject;

这个用完jo.free,否则就有内存泄漏 或者 freeandnil(jo);

如果jo多次使用,下面2种方法都可以,释放没问题。

//if jo<>nil then  freeandnil(jo);
if jo<>nil then  jo.Free;

上一篇:1、c#中解析json 文件的方法:


下一篇:微信支付