Fórum Dúvida ao fazer um For... #221666
23/03/2004
0
É o seguinte:
tenho 9 QRlabels no meu Relatório como os Respectivos nomes:
QRLDescricao01, QRLDescricao02, QRLDescricao03, QRLDescricao04, QRLDescricao05, QRLDescricao06, QRLDescricao07, QRLDescricao08, QRLDescricao09. Bom, estes valores serão preenchidos por um For que a cada Loop deverá jogar o valor em seu QrLabel. Assim:
For I := 1 to 9 do
Begin
QrLabelDescricao0+i.Caption := Texto;
end;
Só que quando fiz referência para o I (QrLabelDescricao0+i.Caption) deu erro pois o QrLabel não é uma Variável. como Faria neste caso para passar o I como parâmetro e não precisar ficar repetindo Todos os QrLabels para jogar os Textos?
Obrigado ...
Giovani
Curtir tópico
+ 0Posts
23/03/2004
Lucas Silva
Mude os tags destes qrlabel´s pra 2;
for i:= 0 to ComponentCount - 1
if Components[i].Tag = 2 then
(Components[i] as TQRLabel).Caption := Texto; Gostei + 0
23/03/2004
Giovani
Mude os tags destes qrlabel´s pra 2;
for i:= 0 to ComponentCount - 1
if Components[i].Tag = 2 then
(Components[i] as TQRLabel).Caption := Texto; não entendi o componentCount!!!! Como utilizaria no meu caso...
Gostei + 0
23/03/2004
Lucas Silva
componentcount é a qtde de componentes do seu form.
pode usar deste jeito que eu te passei que dá certo!
Gostei + 0
23/03/2004
Giovani
componentcount é a qtde de componentes do seu form.
pode usar deste jeito que eu te passei que dá certo![/quote:53b3d8c2b7]
A seguinte linha está dando erro :
(Components[i] as TQRLabel(neste componente)).Caption := Texto;
Gostei + 0
23/03/2004
Lucas Silva
for i:= 0 to componentCount - 1 do
if components[i].tag = 2 then
if components[i] as TQRLabel then
(components as TQRLabel).CAption := TextoGostei + 0
23/03/2004
Adilsond
For I := 1 to 9 do TQrLabel(FindComponent(´QrLabelDescricao0´ + IntToStr(I))).Caption := Texto;
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)