| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

ComponentCount (Components[i])... Как формируется?

Cosinus ©   (2004-09-22 18:22:00) 

Т.е. очень интересно от чего зависит в каком порядке они перебираются?

---

Cosinus   (2004-09-23 11:47:00) [1]

Ок, спасибо.
Сам что то не додумался вчера посмотреть.

---

DiamondShark   (2004-09-22 19:38:00) [2]

На то нам дадены исходники VCL

procedure TComponent.Insert(AComponent: TComponent);
begin
 if FComponents = nil then FComponents := TList.Create;
 FComponents.Add(AComponent);
 AComponent.FOwner := Self;
end;

function TComponent.GetComponentCount: Integer;
begin
 if FComponents <> nil then
   Result := FComponents.Count else
   Result := 0;
end;

---

basken   (2004-09-22 19:15:00) [3]

При создании обькта (наследника TComponent) создаваемый объект добавляется в контейнер Ownera.

constructor TComponent.Create(AOwner: TComponent);
begin
 FComponentStyle := [csInheritable];
 if AOwner <> nil then AOwner.InsertComponent(Self);
end;  

И таким образом контейнер наполняется...

---

Cosinus   (2004-09-22 18:57:00) [4]

Куда попадают?
Как список индексов формируется формируется?

---

basken   (2004-09-22 18:48:00) [5]

От того в каком порядке они туда попадают.

---

Наверх