Converter String em Label

Question

Precisso fazer issofor i := 1 to 200 do�ME�+IntToStr(i).Caption:= �Algo�;ExemploME1.Caption:= �Algo�;ME2.Caption:= �Algo�;ME3.Caption:= �Algo�;ME4.Caption:= �Algo�;ME5.Caption:= �Algo�;...Eu tenho 200...

Steve_narancic · Answer

Faz algo do tipo:[code:1:aedb617a29]var lb: TLabel; i: integer;begin for i:= 0 to 200 do begin  lb := TLabel.Create();  lb.Name := �ME�+IntToStr(i);  lb.Parent:= CRM_Principal;  lb.Top:= i;  lb.Left:= i;  lb.Caption := �ME�+IntToStr(i);  lb.Visible:= true; end;[/code:1:aedb617a29]...

Michael · Answer

Ol� colega!Se vc tem absoluta certeza que todos os labels existem, pode usar o seguinte c�digo:[code:1:fa60fe717c]for I := 1 to 200 do  TLabel(FindComponent(�ME� + IntToStr(I))).Caption := �Algo�;[/code:1:fa60fe717c]Se vc n�o tem esta certeza, ent�o use este outro:[code:1:fa60fe717c]var oControl : TComponent;(...)for I := 1 to 200 dobegin  oControl := FindComponent(�ME� + IntToStr(I));    if Assigned(oControl) then      TLabel(oControl).Caption := �Algo�;end;[/code:1:fa60fe717c][]�s...

Steve_narancic · Answer

Depois eu vi que voc� ja tinha os labels:

 for i:= 0 to ComponentCount do
 begin
  if Components[i] is TLabel
  then (Components[i] as TLabel).Caption := �Algo�;
 end;

Massuda · Answer

Para localizar um componente em um form pelo nome (propriedade Name), use o m�todo TForm.FindComponent...

var
  Componente: TComponente;
....
  Componente := FindComponent(�NomeDoComponente�);
  if Componente <> nil then begin
    // encontrou o componente
  end;
...

Rud� · Answer

Valeu gente era isso mesmo que eu queria....

F�rum Converter String em Label #294576