Отправка команд в список TidTCPClients

Question

Мой код создает несколько TidTCPClients, а затем добавляет ссылки на них в TThreadList.

Я надеялся, что посылать команды на всех из них, а затем с помощью

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

(это, очевидно, лишь небольшая часть кода).

Однако я получаю две ошибки:
[DCC Error] Client.pas (261): E2149 Класс не обладает свойством по умолчанию
[DCC Error] 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;