delphi - 锁定列表上的 TThreadList 访问冲突

Question

var   all: TThreadList = nil;

procedure TForm1.IdTCPServer1Connect(AContext: TIdContext);
var  list:tlist;
begin
  try
  list := all.LockList;
  try
    list.Add(0);
  finally
    all.UnlockList;
  end;
  except

  end;
end;

远程登录 127.0.0.1 1234

为什么会出现访问冲突？

Answer 1

我希望您只是忘记创建TThreadList. 你需要

all := TThreadList.Create;

某处。例如，在该initialization单元的部分。