Concatenar variable a nombre de objeto
 

Hola. Sé que esto que pregunto en javascript y en php se puede hacer, pero no consigo hacerlo en Deplhi.

Tengo 12 checkboxes llamados: ck1, ck2, ck3 ... ck12

Quiero que en un bucle for, me marque todos los checkbox como true

Código Delphi [-]

for k:=1 to 12 do
begin
    ck+k.Checked := true;
end;

el ck+k es lo que no le gusta al compilador... Como se puede hacer? Gracias

Hola cslbcn, puedes utilizar FindComponent, pero también podrías cambiar por un CheckListBox y acceder directamente a sus items recorriendo dicho componente.

Código Delphi [-]
 Check : TComponent;
begin
 for k:=1 to 12 do
  begin
   Check := FindComponent('ck'+IntToStr(k));
   if Assigned(Check) then
    TCheckBox(Check).Checked := True;
  end;

Saluditos

Tambien se puede hacer así para encontrar/recorrer componentes :
Saludos!!

Hola. Los ejemplos de antes funcionaron. He intentado aplicar eso en otro caso y no funciona.

Cuando hago click en una Label, quiero que cambie el formato de esta. Para ellos llamo a un procedure de este tipo:

Código Delphi [-]
procedure TFMante.cambiarFormato(Objeto:String; Estado:String; Categoria:String);
begin

  if (Estado = 'mouseClick') then
  begin

    TLabel(Objeto).Font.Color := clAqua;
    
  end;

end;

Cuando hago la llamada, en Objeto envío el nombre de la label (labelUsuarios1, por ejemplo). Entonces

TLabel(Objeto).Font.Color := clAqua;
debería ser reemplazado por:
TLabel(labelUsuarios1).Font.Color := clAqua;

Pero al hacerlo no funciona, el programa peta. Creo que es porque envío el nombre como String...

Alguna idea? Gracas

Hola cslbcn, si quieres manejarlo como String debes utilizar FindComponent o de la forma que te indica cecam tienes que recorrer e ir preguntando por su Name.

Código Delphi [-]
 if (Estado = 'mouseClick') then
  begin

    TLabel(FindComponent(Objeto)).Font.Color := clAqua;
    
  end;

No te sería mejor manejar tu parámetro Objeto como TLabel?.

Saluditos

Gracias por la ayuda. Tal y como propones ya cumple con lo que quiero. Tengo que manejar la función con varios objetos con varios nombres y de esta forma funciona perfecto.

Muchas gracias.