Поиск компонентов по наименованию.

← →
kyn66 © (2006-03-06 13:32) [0]

Уважаемые мастера, у меня на форме есть некоторое количество Label, полученых в RunTime. Каким образом мне получить их Caption? Я делаю так:
for i := 0 to 50 do if TLabel(FindComponent("GLabel_" + IntToStr(i + 1))) <> nil then St.Add(TLabel(FindComponent("GLabel" + IntToStr(i + 1))).Caption) else St.Add("0");
В данном коде мне приходится принудительно дважды использовать FindComponent. А как проверить, чтобы FindComponent использовался тока 1 раз, типа
for i := 0 to 50 do with TLabel(FindComponent("GLabel_" + IntToStr(i + 1))) do begin if ??? <> nil then St.Add(Caption) else St.Add("0") end;

← →
MBo © (2006-03-06 13:35) [1]

var Compon: TComponent;
Compon:=FindComponent...
if Compon ...

← →
kyn66 © (2006-03-06 13:56) [2]

Я так пробывал, выдает ошибку, говорит Compon.Caption - нет такого.

← →
GrayFace © (2006-03-06 13:58) [3]

TLabel(Compon).Caption

У Compon: TComponent нету свойства Caption. Нужно преобразование типов, например:
if Compon is Tlabel then
TLabel(Compon).Caption := ...

Заработало! Спасибо !!!

Поиск компонентов по наименованию. Найти похожие ветки