锁定列表上的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;

telnet 127.0.0.1 1234

为什么它会遭到访问侵犯？

Answer 1

我希望您忘记创建TThreadList。你需要

all := TThreadList.Create;

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