Через индекс обращаемся к нескольким компонентам в Delphi

Следующие примеры демонстрируют обращение к компонентам WebBrower1 и Label1 через индекс.

TWebBrowser:

var
awb:array[1..cnbr] of twebbrowser; // 
...
for i:=1 to 5 do
    awb[i]:=TWebBrowser(FindComponent('WebBrowser'+IntToStr(i)));

Label:

for t := 1 to 5 do
  FindComponent('Label' + IntToStr(t)).Visible := true;
1 Звезда2 Звезды3 Звезды4 Звезды5 Звезд (10 оценок, среднее: 5,00 из 5)
Загрузка...
Добавить комментарий