Delphi函数注解说明

{

函 数 名：TThreadsPool.FreeFinishedThreads

功能描述：释放 FThreadsKilling 列表中的线程

输入参数：无

返 回 值: 无

创建日期：2006.10.22 11:34

修改日期：2006.

作    者：Kook

附加说明：

}

 

procedure TThreadsPool.FreeFinishedThreads;

var

  i: Integer;

begin

  if csThreadManagment.TryEnter then

  try

    for i := FThreadsKilling.Count - 1 downto 0 do

      if TProcessorThread(FThreadsKilling).isFinished then

      begin

        TProcessorThread(FThreadsKilling).Free;

        FThreadsKilling.Delete(i);

      end;

  finally

    csThreadManagment.Leave

  end;

end; { TThreadsPool.FreeFinishedThreads }