Recorrer las Labels de un Form

[roman]

var
  Label: TLabel;
  N, I: Integer;

begin
  for I := 0 to Pred(ComponentsCount) do
    if Components[ I ] is TLabel then
    begin
      Label := TLabel(Components[ I ];
      if Pos(Label.Caption, 'Cancion') <> 0 then
      begin
        N := StrToInt(Copy(Label.Caption, Length('Cancion'), Length(Label.Caption)));
        if N > primer número then
          Label.Visible := false;
      end;
    end;
end;

También podrías asignar el número de la canción a la propiedad Tag de cada label para evitarte la conversión IntToStr.

// Saludos

[nesetru]

¡¡¡Dios que rapidez!!!

Muchísimas gracias amigos.

Lo que pasa es que no entiendo muy bien el código que me habéis mandado

Parece que recorre todos los componentes del form, si éste es un label .... ahí me pierdo.

Os recuerdo que solo hay 20 labels y se llaman Cancion1,..,Cancion20 y lo que quiero es que dada una label (que puede ser una desde Cancion1 hasta la Cancion19) desde esa misma hasta la label Cancion20 hacerlas invisibles.

Muchas gracias...

[roman]

Pseudo código

Desde la primera componente del formulario hasta la última
  Si la componente es TLabel
    Si es un label que nos interese ('CancionXX')
      Si tiene un número mayor  o igual que el primer número que me interesa
        Hacerlo invisible

// Saludos

[roman]

Por cierto, en el código original donde dice

if N > primer número then

debe decir

if N >= primer número then


// Saludos

[nesetru]

Muchas gracias por la explicación.

Ahora lo entiendo pero aunque no quiero resultar pesado, me parece que el código que me pasas en su begin más interno compara los caption de las labels y lo que necesito son los name.

He cambiado caption por name pero al ejecutar paso a paso el procedure veo que no entra nunca en dicho begin.

Gracias

[roman]

Empezado por nesetru

me parece que el código que me pasas en su begin más interno compara los caption de las labels y lo que necesito son los name.

He cambiado caption por name

Bien observado y arreglado.

Empezado por nesetru

al ejecutar paso a paso el procedure veo que no entra nunca en dicho begin.

Es que lo escribí como se me ocurrió. Debes invertir los parámetros de Pos.

// Saludos

[nesetru]

Muchas gracias Roman y perdona las molestias.

Ahora si que entra, justo en la primera label 'Cancion1' pero asigna a N el valor n1 claro, n1 no es un integer y da un error.

¿Se te ocurre algo?