浏览代码

* Patch from Andrey Sobol to fix memleak

git-svn-id: trunk@47799 -
michael 4 年之前
父节点
当前提交
034048e09d
共有 1 个文件被更改,包括 8 次插入0 次删除
  1. 8 0
      packages/chm/src/itsftransform.pas

+ 8 - 0
packages/chm/src/itsftransform.pas

@@ -435,7 +435,15 @@ initialization
 
 finalization
   if Assigned(LocTransforms) then
+  begin
+    while LocTransforms.Count > 0 do
+    begin
+      if Assigned(PITSFTranformItem(LocTransforms.Items[0])^.Instance) then
+          (PITSFTranformItem(LocTransforms.Items[0])^.Instance).Free;
+      LocTransforms.Delete(0);
+    end;
     LocTransforms.Free;
+  end
 
 end.