Convertir Texto a String

[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...

[roman]

Así es Contra. Imagino que D&W está pensando en el arreglo Controls que sí depende del contenedor visual.

Por cierto, en VB existen los arreglos de controles con los cuales todo esto sería más sencillo

// Saludos

[*Caro*]

Hola, con Component recorre todos los componentes pero con Controls no que debe ser al que se refiere D&W.

Edito.- Se me ha adelantado Roman.

Saluditos

[[Chris]]

Empezado por ContraVeneno

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...

Ahhhh! en el código estás utilizando la propiedad "Components" no "Controls". Entendía que la propiedad "Components" solo funcionaba para los decendientes de TComponents. Que "Controls" era para los objetos visuales, y en esos si tienes que utilizar procedimientos anidados. Ve que cada día se aprende algo nuevo. Gracias por la intencional lección ContraVeneno.

Saludos.

[Faust]

Alguna vez que usé Visual Basic recuerdo que me fueron muy útiles los arrays o vectores de controles...

Me pregunto... ¿Delphi tendrá algo parecido e igual de fácil de usar?

[maurici0]

Perfecto, agradezco a todos su ayuda me ha servido, ahora a implementarlo, gracias!!

[*Caro*]

Empezado por Faust

Alguna vez que usé Visual Basic recuerdo que me fueron muy útiles los arrays o vectores de controles...

Me pregunto... ¿Delphi tendrá algo parecido e igual de fácil de usar?

Hola, cuando utilizaba Visual Basic también me gustaba utilizar el vector de controles (donde solo le tenías que indicar el indice y un mismo nombre en las propiedades), pero en delphi no hay, si quieres hacerlo tendrías que crearte tu el arrray de controles que quieras y mantenerlo tu.

Saluditos

[roman]

Bien, bien, poco a poco todos vamos confesando nuestro oscuro pasado programando en VB

--------------------------------------------

Creo yo que si se accede muchas veces a los controles, conviene hacer nuestro propio arreglo como comenta Caro. Bastaría, por ejemplo, declarar el arreglo

Código Delphi [-]
type
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel
    ...
    Label84: TLabel;
  private
    Etiquetas: array of TLabel;
  end;

e inicializarlo en el evento OnCreate:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  SetLength(Etiquetas, 84);
  Etiquetas[0] := Label1;
  Etiquetas[1] := Label2;
  Etiquetas[2] := Label3;
  ...
  Etiquetas[84] := Label84;
end;

Otra cosa que se puede hacer si se requiere trabajar con secciones de los controles (los primeros 50...) es agrupar las secciones en un panel, y entonces sí, usar el arreglo Controls de cada panel.

// Saludos

[Faust]

Empezado por roman

Bien, bien, poco a poco todos vamos confesando nuestro oscuro pasado programando en VB

--------------------------------------------

Creo yo que si se accede muchas veces a los controles, conviene hacer nuestro propio arreglo como comenta Caro. Bastaría, por ejemplo, declarar el arreglo

Código Delphi [-]
type   TForm1 = class(TForm)     Label1: TLabel;     Label2: TLabel;     Label3: TLabel     ...     Label84: TLabel;   private     Etiquetas: array of TLabel;   end;

e inicializarlo en el evento OnCreate:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject); begin   SetLength(Etiquetas, 84);   Etiquetas[0] := Label1;   Etiquetas[1] := Label2;   Etiquetas[2] := Label3;   ...   Etiquetas[84] := Label84; end;

Otra cosa que se puede hacer si se requiere trabajar con secciones de los controles (los primeros 50...) es agrupar las secciones en un panel, y entonces sí, usar el arreglo Controls de cada panel.

// Saludos

Eso si es mucho trabajo cuando se tienen demasiados controles, y en cuanto a nuestro pasado con VB ¿qué nos puede comentar Román? No creo que tenga un pasado muy limpio .

Hay un dicho que dice: (estoy siendo redundante)

Hay aves que vuelan sobre el pántano sin nisiquiera manchar su plumaje... (creo que va por ahí)

Reciban saludos de este humilde programador al que le pertenece un pasado oscuro y nebuloso...

[roman]

Empezado por Faust

y en cuanto a nuestro pasado con VB ¿qué nos puede comentar Román? No creo que tenga un pasado muy limpio .

Hey, hey, que yo lo digo en broma Alguna vez usé VB, por eso conozco los arreglos de controles

// Saludos