Duvida Cruel QRLabels

Question

Eu criei varios QRLabels com nomes como: QRL1, qrl2 , qrl3 , qrl4 , qrl5 etc... Eu queria usa-los dentro de uma estrutura FOR sem prescisar digitar todo o nome, eu pensei em algo assim mas � claro que nao funciona:

(�qrl� + inttostr(Count)).caption := variavel;

Como eu poderia fazer isso ???

Raserafim · Answer

voc� pode fazer um la�o para passar por todos os componentes e verificar quais s�o do tipo que voc� quer alterar, fazendo a verifica��o atrav�s da classe. Fiz um exemplo que alterar o texto dos componentes Edit, basta voc� substituir a Classe TEdit pela classe do componente que voc� quer, e mudar a propriedade text para capition:

procedure TForm1.Button1Click(Sender: TObject);
var
I: Integer;
begin
for I := 0 to 5 do
if Components[I] is TEdit then
TEdit(Components[I]).Text := �Rodrigo�;

end;

Neoramza · Answer

Mas o problema � que eu vou gravar dados diferente em cada uma dessas QRLabels...

Raserafim · Answer

se voc� alterar a �ltima linha para:TEdit(Components).Text := vari�vel;j� vai ficar como voc� havia perguntado. N�o estou entendendo como voc� quer atribuir valores diferentes que c�digo n�o funciona.  Me d� mais detalhes que posso tentar ajudar....

Neoramza · Answer

Eu quero que por exemplo o qrLabel1.caption receba o valor . txtText1.caption, o qrLabel2.caption receba o valor . txtText2.caption, o qrLabel3.caption receba o valor . txtText3.caption at� o qrLabel300.caption receba o valor . txtText300.caption sem precisar excrever tudo um por um assim:

qrLabel1.caption := txtText1.caption;
qrLabel2.caption := txtText2.caption;
qrLabel3.caption := txtText3.caption;
....
qrLabel300.caption := txtText300.caption;

ao em vez de escrever tudo um por um eu queria usar um comando FOR para fazer isso.

Ser� que agora eu conseguir me expressar bem? :?

Einstein · Answer

vc deve usar um la�o. para facilitar sua vida use componentes com nomes sequ�ncias. ex.: QRLabel1.Caption:=Edit1.Text;
ent�o, se vc usar o loop FOR basta passar a variavel contadora pra nome dos Componentes. Ex.: QRLabel+InttoStr(I).Caption:=Edit+StrToInt(I).Text;

Beppe · Answer

Voc� pode usar Form1.FindComponent(�QRLabel� + IntToStr(I)), mas isto poder� percorrer o array de components inteiro pra achar o dito label: O(n�) = 300 x 300 = 90000.

Ent�o voc� cria dois arrays, um para os lab�is e outro para os edits.

type
  TForm1 = class(TForm)
  ...
  private
    QRLabels: array[1..300] of TQRLabel;
    Edits: array[1..300] of TEdit;
    procedure InitializeArrays;
  ...
  end;

procedure TForm1.InitializeArrays;
var
  I: Integer;
  Labs, Eds: Integer;
begin
  Labs := 0;
  Eds := 0;
  for I := 0 to ComponentCount - 1 do
  begin
    if Components[I] is TQRLabel then
    begin
      Inc(Labs);
      QRLabels[Labs] := Components[I];
    end else if Components[I] is TEdit then
    begin
      Inc(Eds);
      Edits[Eds] := Components[I];
    end;
  end;
end;

...
  for I := 1 to 300 do
    QRLabels[I].Caption := Edits[I].Text;
...

Neoramza · Answer

[quote:86234d4085=�Einstein�]vc deve usar um la�o. para facilitar sua vida use componentes com nomes sequ�ncias. ex.: QRLabel1.Caption:=Edit1.Text; ent�o, se vc usar o loop FOR basta passar a variavel contadora pra nome dos Componentes. Ex.: QRLabel+InttoStr(I).Caption:=Edit+StrToInt(I).Text;[/quote:86234d4085]Eu tentei fazer isso assimdentro do FOR:QRLabel+InttoStr(I).Caption:=Edit+Inttostr(I).Text;mas dava a seguinte mensagem de erro: �Undeclared identifier: �Edit�, �QRLabel�entao eu tentei fazer assim:�QRLabel�+InttoStr(I).Caption:=�Edit�+Inttostr(I).Text;agora o erro mudou para: Record, objct or data Type requiredN�o sei mais o que fazer. O q q deu errado ae?...

Neoramza · Answer

Por favor pessoal... Ajuda ae!  :cry:...

F�rum Duvida Cruel QRLabels #195591