LOOP COM SELE��O DO COMPONENTE ATRAV�S DO PONTEIRO

Question

ae

Como fa�o para acesar o componente e mudar alguma propriedade atrav�s de um loop.

Ex.:

for i:= 1 to 10 do
labelX.caption := Ol� + IntToStr(�i�);

onde o caracter X deveria ser o valor de i, como nao da para usar label+intTostr(i) para selecionar o componente, alguem me ajuda

brigadu

Marcelo Saviski · Answer

[b:40b10f12cb][color=#012345:40b10f12cb]fa�a assim:[/color:40b10f12cb][/b:40b10f12cb]

for i := 0 to form1.componentcount do
if components[i] is TLabel then
Tlabel(components[i]).caption := �Ol� � + Tlabel(components[i]).name

Anonymous · Answer

eu preciso pegar o componente pelo nome, eu tenho 50 labels no formulario e num loop preciso mudar o valor de 10, sendo cada um um valor diferente de um calculo, com essa rotina eu mudaria a de todas

[quote:b5d5baa2a7=�Marcelo Saviski�][b:b5d5baa2a7][color=#012345:b5d5baa2a7]fa�a assim:[/color:b5d5baa2a7][/b:b5d5baa2a7]

for i := 0 to form1.componentcount do
if components[i] is TLabel then
Tlabel(components[i]).caption := �Ol� � + Tlabel(components[i]).name

[/quote:b5d5baa2a7]

Adilsond · Answer

procedure TForm1.AlteraLabel(Ind: Word; Value: String);begin  TLabel(FindComponent(�Label� + IntToStr(Ind))).Caption := Value;end;...

Anonymous · Answer

BRIGADU[quote:c074073f37=�AdilsonD�]procedure TForm1.AlteraLabel(Ind: Word; Value: String);begin  TLabel(FindComponent(�Label� + IntToStr(Ind))).Caption := Value;end;[/quote:c074073f37]...

Bilouro · Answer

[quote:574444acdc=�Anonymous�]eu preciso pegar o componente pelo nome, eu tenho 50 labels no formulario e num loop preciso mudar o valor de 10, sendo cada um um valor diferente de um calculo, com essa rotina eu mudaria a de todas[quote:574444acdc=�Marcelo Saviski�][b:574444acdc][color=#012345:574444acdc]fa�a assim:[/color:574444acdc][/b:574444acdc][code:1:574444acdc]for i := 0 to form1.componentcount doif components&91;i&93; is TLabel thenTlabel(components&91;i&93;).caption := �Ol� � + Tlabel(components&91;i&93;).name[/code:1:574444acdc][/quote:574444acdc][/quote:574444acdc]na linha for, fa�a uma pequena atualiza��o:for i := 0 to form1.componentcount [color=red:574444acdc][size=18:574444acdc]-1[/size:574444acdc][/color:574444acdc] do...

F�rum LOOP COM SELE��O DO COMPONENTE ATRAV�S DO PONTEIRO #146592