將命令發送到TidTCPClients列表

Question

我的代碼創建了多個TidTCPClients，然後在TThreadList中添加對它們的引用。

我希望通過然後使用

for I := 0 to (NumClients - 1) do 
begin 
    ClientList[I].IOHandler.WriteLn('Whatever'); 
end; 

將命令發送到所有的人（這顯然只是代碼的一小部分）。

但是我得到兩個錯誤：
[DCC錯誤] Client.pas（261）：E2149類不具有默認屬性
[DCC錯誤] Client.pas（262）：E2233住宅「IOHandler '這裏無法訪問

並在簡短閱讀This之後，我對如何做到這一點並不明智，但絕對開始認爲我完全處於錯誤的軌道。

任何人都可以指向正確的方向嗎？

Answer 1

請參閱doc如何操作TThreadList。您還需要在列表中輸入TidTCPClient對象，因爲它只包含無類型的指針。

var 
    list: TList; 
... 
list := ClientList.LockList; 
try 
    for I := 0 to list.Count - 1 do 
    begin 
    TidTCPClient(list[I]).IOHandler.WriteLn('Whatever'); 
    end; 
finally 
    ClientList.UnlockList; 
end;