[MegaPiha]

Не могу найти информацию, как одновременно, допустим заполнить 5 ComboBox одной информацией. Из за необходимости прописывать одно и то же каждому компоненту сильно увеличивается программный код.

[Gad99]

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

Не могу найти информацию, как одновременно, допустим заполнить 5 ComboBox одной информацией. Из за необходимости прописывать одно и то же каждому компоненту сильно увеличивается программный код.

Попробуй в Цикле использовать FindComponent а также в цикле его заполнять.

[MegaPiha]

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

Попробуй в Цикле использовать FindComponent а также в цикле его заполнять.

Может примерчики есть? В справке примеров нет.

[Yurk@]

Примерно так:

Код:

var tmp: TComponent;   
     i: integer;   
begin   
for i:=1 to 5 do   
begin   
tmp:=FindComponent('ComboBox'+IntToStr(i));   
if tmp<>nil then   
(tmp as TComboBox).Text:='какой-то текст';   
end;   
end; 

[MegaPiha]

Работает! Спасибо большое.