瀏覽代碼

* Fix memleak

Michaël Van Canneyt 3 年之前
父節點
當前提交
11d2960db8
共有 1 個文件被更改,包括 1 次插入0 次删除
  1. 1 0
      packages/fcl-web/src/base/httproute.pp

+ 1 - 0
packages/fcl-web/src/base/httproute.pp

@@ -522,6 +522,7 @@ destructor THTTPRouter.Destroy;
 begin
 begin
   FreeAndNil(FLock);
   FreeAndNil(FLock);
   FreeAndNil(FRoutes);
   FreeAndNil(FRoutes);
+  FreeAndNil(FIntercepts);
   inherited Destroy;
   inherited Destroy;
 end;
 end;