Convertir Texto a String

[ContraVeneno]

Código Delphi [-]
 for  i:=componentcount-1 downto 0 do begin
      if Components[i] is TLabel then begin
           TLabel(Components[i]).Enabled:= True;
      end; //fin if
  end; //fin for

¿500 campos? ¿en una tabla? Para mi 500 campos es igual a un problema de diseño y seguramente existe una mejor manera.

[maurici0]

Gracias por la respuesta, me podrias explicar que hace en si el codigo?
Y aprovechando tu generosidad, si tengo ejemplo 100 labels, como aplciar tu codigo solo a los primeros 50? o algo asi?

Lo que pasa es de que es una pregunta "matriz", asi que desde la pregunta esta mal formulada jaja, esque es para hacer calculos y no se que mas moneria...

[ContraVeneno]

Lo que hace el código es que recorre todos los componentes de un formulario y a todos los que sean TLabel les pone su propiedad enabled a verdadero. Si son 500, a los 500, si son 2, a los 2. Lo mismo se puede aplicar para hacerlos invisibles y se puede aplicar para cualquier tipo de componente y cualquiera de sus propiedades.

Si quisieras solo los primeros 50, tendrías que cambiar las condiciones del For, o utilizar un While. Pero para esto necesitarías saber que número de componentes son los "primeros 50", es decir algo como: "los primeros 50 son los compomentes del 100 al 150".

pero insisto, tener 500 cosas de un mismo tipo me suena a problema de diseño y seguramente existe una mejor manera. Si explicaras un poco más sobre lo que quieres hacer, tal vez alguien podría tener una mejor idea que tener 500 componentes.

[*Caro*]

Empezado por ContraVeneno

Pero para esto necesitarías saber que número de componentes son los "primeros 50", es decir algo como: "los primeros 50 son los compomentes del 100 al 150".

Y para eso te podría servir la propiedad Tag de cada label, le asignas un numero y preguntas por esa propiedad si esta entre 1 y 50.

Saluditos

[maurici0]

Gracias por la explciación, eso del componente en donde lo puedo ver?

[*Caro*]

Empezado por maurici0

Gracias por la explciación, eso del componente en donde lo puedo ver?

Que componente quieres ver, si te te refieres a Component, es una propiedad que tiene un contenedor en tu caso tu formulario ahí estan todos los componentes que tienes en tu formulario.

Saluditos

[ContraVeneno]

Código Delphi [-]
 for  i:=componentcount-1 downto 0 do begin
      if (Components[i] is TLabel) and (TLabel(Components[i]).Tag in [1..50])  then begin
           TLabel(Components[i]).Enabled:= True;
      end; //fin if
  end; //fin for

Buena idea la de usar el tag...
creo que sería algo así, ¿o no?

[[Chris]]

Si utilizaras el código propuesto por ContraVeneno, ten en cuenta que si los Label's están dentro de un panel, Groupbox o algo por el estilo tendras que modificar el código para trabajar con controles anidados, o sea llamar a los famosos procedimientos anidados

[ContraVeneno]

Empezado por D&W

Si utilizaras el código propuesto por ContraVeneno, ten en cuenta que si los Label's están dentro de un panel, Groupbox o algo por el estilo tendras que modificar el código para trabajar con controles anidados, o sea llamar a los famosos procedimientos anidados

a caray...

Ese código yo lo utilizo para habilitar unos TDBEdits, algunos están directo en el formulario, otros están en un TTabSheet, otros están en otro TTabSheet y dentro de un TGroupBox y de todas formas me los habilita todos...