Trabajar con Label1, Label2, ..., Labeln dentro de un bucle
 

Hola:
Espero que este sea el foro adecuando para mi pregunta: trataré de hacer entender cual es mi problema: necesito "por codigo" trabajar con varios Label (modificar la propiedad caption de cada uno), pretendo hacerlo dentro de un bucle For, pero no se como seleccionar cada uno. Sería algo así:
For x = 0 To 20 do
Labelx.Caption := 'lo que sea';

Saludos y disculpen mi ignorancia.

Hola dantemol, lo puedes hacer recorriendo los componentes que tienes en tu formulario y preguntar si es un Label

Código Delphi [-]
 for i:=0 to ComponentCount -1 do
  If (Components[i] Is TLabel) Then
   TLabel(Components[i]).Caption := 'lo que sea';

Saluditos

Hola dantemol ! ;)

Esto te puede servir...

Código Delphi [-]
for i:=(Form.ComponentCount -1) downto 0 do
     begin
       if (Components[i] is TLabel) then
         begin
           TLabel(Components[i]).Caption := 'Lo que sea';
         end;
     end;

Esto lo que hace es que a todas los componentes del Form que reconoce como Etiqueta le pone en el Caption lo que le indicas...

Espero que sea esto lo que buscabas :)

P.D. Caro !!!, como estás amiguita ???... Te me has adelantado, jejejejeje, esperemos que sea de ayuda para nuestro compañerito :)

¿Y si "lo que sea" depende del número de label?

// Saludos

Entonces utilizamos la propiedad Tag del Label.

Código Delphi [-]
for i:=0 to ComponentCount -1 do
  If (Components[i] Is TLabel) Then
   Case TLabel(Components[i]).Tag of
    1: TLabel(Components[i]).Caption := 'ponemos algo para tag 1';
    2: TLabel(Components[i]).Caption := 'ponemos algo para tag 2';
    3: TLabel(Components[i]).Caption := 'ponemos algo para tag 3';
    .........
   end;

Claro que antes colocando su repectivo número en la propiedad tag de cada label.

Saluditos

Hola amiguita :), estoy bien gracias, espero que tu también estes muy bien, esperemos que le sea ayuda.

Ahora yo me despido, que pasen una bonita noche.

Saluditos

Gracias
 

Hola amigos:
Gracias por la celeridad de sus respuestas, todas ellas me ayudaron. Mil gracias y hasta la próxima.-