Показать сообщение отдельно
  #4  
Старый 09.04.2008, 16:23
Аватар для Yurk@
Yurk@ Yurk@ вне форума
Специалист
 
Регистрация: 07.09.2007
Адрес: Украина, г. Днепропетровск
Сообщения: 892
Версия Delphi: 7 + ОгнеПтица
Репутация: выкл
По умолчанию

Примерно так:
Код:
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; 
__________________
Поживу - увижу, Доживу - узнаю, Выживу - учту.
[P.S.]->Выражая благодарность за помощь - Вы получаете шанс на помощь в следующий раз
Ответить с цитированием