[alanatolich]

Помогите с перебором объектов.
Задача такая есть основной поток приложения, который в свою очередь запускает еще один поток, в котором динамически создается N-e количество объектов. Как после создания этих объектов, к ним обратиться?

Код:

procedure TMyThread.Execute;
var i: Integer;
begin
    // создаем сокеты
    for I :=0 to NumberClientSocket do
    begin
        MYClientSocket:=TClientSocket.Create(nil);
        MYClientSocket.Name:='MS'+inttostr(I);
        //настраиваем сокеты
        ...
    end;
    while True do
    begin
          // нужно обращаться к свойствам определенного сокета
          ...
    end;
        // освобождаем все сокеты
        ...
end;

[poli-smen]

Сообщение от alanatolich

Помогите с перебором объектов.
Задача такая есть основной поток приложения, который в свою очередь запускает еще один поток, в котором динамически создается N-e количество объектов. Как после создания этих объектов, к ним обратиться?

Сохраняй указатели на созданные объекты в массив или например в TList и т.п.

[alanatolich]

использую TList

Код:

var termial:TStringList;
  I: Integer;
    myList:TList;
begin
    // создаем список
    MYList := TList.Create;
    // создаем сокеты
    for I :=0 to NumberClientSocket do
    begin
        MYClientSocket:=TClientSocket.Create(nil);
        MYClientSocket.Name:='MS'+inttostr(I);
        MYList.Add(MYClientSocket);
    end;
    while True do
    begin
        MYClientSocket(myList[0]).Open;// ошибка подскажите что не так
    end;
end;

MAD: оформляйте код, или последует бан.

ошибка : E2066 Missing operator or semicolon

[poli-smen]

Сообщение от alanatolich

.....
MYClientSocket(myList[0]).Open;// ошибка подскажите что не так
.....

Преобразовывать нужно к типу, а не к переменной:

Код:

TClientSocket(myList[0]).Open;

[alanatolich]

poli-smen спасибо огромное за помощь.
как теперь освободить?

Код:

     for i := 0 to myList.Count-1 do
     begin
           MYClientSocket(myList[i]).free;
     end;
     MYList.free;

верно ли освобождаю?

[poli-smen]

Сообщение от alanatolich

poli-smen спасибо огромное за помощь.
как теперь освободить?


for i := 0 to myList.Count-1 do
begin
MYClientSocket(myList[i]).free;
end;
MYList.free;

верно ли освобождаю?

Нет, неправильно. Преобразования к переменной не существует. Нужно преобразовывать к типу:

Код:

TClientSocket(myList[i]).Free;

[alanatolich]

да точно . На те же грабли, спасибо еще раз