Ver Mensaje Individual
  #17  
Antiguo 19-03-2009
Avatar de roman
roman roman is offline
Moderador
 
Registrado: may 2003
Ubicación: Ciudad de México
Posts: 20.269
Reputación: 10
roman Es un diamante en brutoroman Es un diamante en brutoroman Es un diamante en bruto
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
Responder Con Cita