multithreading - Delphi：TThreadList 有时会锁定程序

Question

有时这个功能会锁定我的程序，并且在我关闭它之前它会冻结。这里有什么问题？

function del_from_list(id:string):boolean;
var i : integer;
begin
  Result := True;
  try
    with global_list.LockList do
    begin
      for i:=0 to Count-1 do
      begin
        if Tthread_list(Items[i]).id = id then
        begin
          Delete(i);
          break;
        end;
      end;
    end;
  finally
    global_list.UnlockList;
  end;
end;

班上

  Tthread_list = class
  public
    id   : string;
    constructor Create(const id: string);
  end;

我正在像这样添加到列表中：

global_list.Add(Tthread_list.Create('xxx'));

全局列表是一个全局变量

var global_list : TThreadList = nil;

Answer 1

您需要在块LockList()外try而不是在块内调用，例如：

function del_from_list(const id: string): boolean;
var
  List: TList;
  i : integer;
begin
  Result := False;
  List := global_list.LockList;
  try
    with List do
    begin
      for i :=0 to Count-1 do
      begin
        if Tthread_list(Items[i]).id = id then
        begin
          Delete(i);
          Result := True;
          break;
        end;
      end;
    end;
  finally
    global_list.UnlockList;
  end;
end;

Answer 2

for 循环计数方向错误。删除成员时，您必须倒计时，而不是倒计时。