Просмотр новых публикаций

2 VCLObject с одинаковым именем, но разными индексами.

Автор Колючка, 15 июн 2011 13:42

Авторизуйтесь для ответа в теме

Сообщений в теме: 4

#1 Колючка

Активный участник

Members
105 сообщений

Отправлено 15 июня 2011 - 13:42

Есть у меня VCLObject('Panel_Conditions'), который содержит 2 vcl объекта с именем VCLObject('ConditionObject') только у одного объекта свойство Index = 1, а у другого Index =2.

Конструкция:
CondObj1 := PanelConditions.VCLObject('ConditionObject'); не даёт возможности перебора объектов с разными индексами. Поэтому я получаю всегда только первый объект, а ко второму не могу добраться.

Подскажите, что делать в этой ситуации?

0

Наверх

#2 modbear

Специалист

Members
548 сообщений

Отправлено 15 июня 2011 - 14:09

Навскидку, можно попробовать так:

CondObj1 := PanelConditions.Child(1);
// Do smth with CondObj1
CondObj2 := PanelConditions.Child(2);
// Do smth with CondObj2

или так:

CondObjects := PanelConditions.FindAllChildren("имя_свойства_со_значением_ConditionObject", "ConditionObject");
for i := 0 to VarArrayHighBound(CondObjects, 1) do
begin
  CondObj := CondObjects[i];
  // Do smth with each CondObj
end;