浏览代码

* Remove unused variables. Fixes issue #40355

Michaël Van Canneyt 2 年之前
父节点
当前提交
e00ed69d66
共有 1 个文件被更改,包括 0 次插入4 次删除
  1. 0 4
      packages/fcl-extra/src/unix/daemonapp.inc

+ 0 - 4
packages/fcl-extra/src/unix/daemonapp.inc

@@ -122,10 +122,6 @@ end;
 procedure TCustomDaemonApplication.RemoveController(
   AController: TDaemonController);
   
-Var
-  I : Integer;
-  HC : Boolean;
-  
 begin
   FreeAndNil(AController.FDaemon);
   AController.Free;