Поиск компонентов на форме

[Des]

Имею 20 Label'ов имен g_0 ... g_19. У каждого из них разные Caption. Смотрим код и пытаемся понять что я хотел сделать

var
guest_adress:string
begin

guest_adress:=Form1.g_+IntToStr(RandomRange(0,19))+.Caption;

end;

Такое вообще в делфях сделать возможно ?

Спасибо

[Sazary]

Смотрите в сторону FindChildControl

http://programmersforum.ru/showthread.php?t=45302
http://programmersforum.ru/showthread.php?t=46959

[Des]

procedure random_adress;
var
i: integer;
jj: TComponent;
begin
i:=RandomRange(0,19);
jj := Form1.FindChildControl('g_'+ IntToStr(i));
guest_adress:=???;

end;

Чот не туда забрел)) Что делать?

[Квэнди]

uses ......,StrUtils;
......
for i :=0 to form1.componentcount -1 do
if (form1.components[i] is Tlabel)and(startstext('g_',form1.components[i].name)) then
guest_adress:=(form1.components[i] as tlabel).caption;
...........

[Sazary]

Хм.. Что-то не хочет FindChildControl находить лэйбл.
Но зато FindComponent видит )

procedure random_adress;
var
i: integer;
jj: TComponent;
begin
i:=RandomRange(0,19);
jj := Form1.FindComponent('g_'+ IntToStr(i));
guest_adress:=TLabel(jj).Caption;

end;

Ну или как Квэнди написал.

[Квэнди]

Sazary,я писал без случайных чисел, с случайными лучше как вы написали

[Neeter]

Может вот так:

var
 guest_adress: array[0..19] of string;
 i: integer;
begin
 for i := 0 to 19 do
  guest_adress[i]:=FindComponent('g_' + IntToStr(i)).Caption;
end;

[Sazary]

Neeter, по всей видимости (из первого поста), автору нужно выбрать случайно один из лэйблов, а не перебирать все.

[Neeter]

Да, точно, значит у вас правильнее)

[Des]

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

Хм.. Что-то не хочет FindChildControl находить лэйбл.
Но зато FindComponent видит )

procedure random_adress;
var
i: integer;
jj: TComponent;
begin
i:=RandomRange(0,19);
jj := Form1.FindComponent('g_'+ IntToStr(i));
guest_adress:=TLabel(jj).Caption;

end;

Ну или как Квэнди написал.

Хотел уже было выложить но как вы и говорили с FindChildControl у меня тоже были проблемы
Спасибо большое

Квэнди И вам спасибо!