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部分。