Manejar un TList
 

Buenas, sigo experimentando. :)

Creo un form con varios Label y SpinBox, y uso Tlist para manejarlos.

Este es mas o menos el sistema:

Código Delphi [-]
   //----------------------------------------------------------------------------------------------------------------
   procedure ElProgramaX.FormCreate(Sender: TObject);

   Var
   Lista1,Lista2:Tlist;  
   Espin:TSpinBox;
   etiqueta:tlabel;
   x,idx1,idx2:integer;

   begin

   Lista1:=Tlist.Create;

   idx1:=Lista1.Add(label1);
   /...  Añado todos los Label 
   idx1:=Lista1.Add(labe20);

   Lista2:=Tlist.Create;

   idx2:=Lista2.add(SpinBox1);
   // ... Añado los TSpinBox
   idx2:=Lista2.add(SpinBox20);

   //Cargo Los Label desde un  Memo
   for x := 0 to MEMO1.Lines.Count-1 do
     begin
     Etiqueta:=Lista1.items[x];
     Etiqueta.Text:=MEMO1.LINES[X];
     end;
 
   // Aqui asigne los valores solo para comprobar el orden y que funcionaba ;)
   for x := 0 to MEMO1.Lines.Count-1 do
     begin
     Espin:=Lista2.items[x];
     Espin.value:=x;
     end;

   end;
   //----------------------------------------------------------------------------------------------------------------

En principio funciona bien, las consultas son:

-La estoy liando y hay métodos mas sencillos??

-La variable idx tiene que ser diferente para cada List o si le asigno valor 0 antes de asignar la segunda valdría?

-Como todas las variables se declaran en el procedimiento FormCreate no se podrá acceder a los datos desde otra parte del código. ¿Se podria declarar en un procedimiento externo?

Gracias anticipadas.

Hay varias cosas a comentar, sin saber muy bien para qué quieres utilizar la estructura, sí que hay cosas que puedes mejorar.


Se me ocurre que puedes usar listas específicas (usando genéricos TList<T>):


Los elementos (variables, objetos,...) que necesites utilizar desde otros procedimientos del pformulario, puedes definirlos en la parte privada de la clase. Al final de la clase del formulario tienes esto:

Código Delphi [-]
    ....

    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

Lo que definas en el private sólo es accesible desde dentro de esta unit, lo que definas en la parte public será accesible desde otras units.


Para añadir los Labels y los Spinbox a las listas puedes usar un bucle FOR y utilizar el método FindComponent que te permite acceder a un componente a partir del nombre.

Código Delphi [-]
var
  comp:Tcomponent;
  i:integer;
begin
  ...
  for i := 1 to 20 do begin
    comp := FindComponent('Label' + i.ToString);     // buscar el componente `pòr el nombre
    if Assigned(comp) then                                  // si lo ha encontrado....
      listaLabels.Add(TLabel(comp));                     // lo añade a la lista
  end;

En cuanto a lo que comentas de la variable idx, siplemente es la posición en que el elemento se añade a la lista. Como en este caso no te interesa esa información no hare falta ni que la asignes.

Código Delphi [-]
  Lista1.Add(Label1);
o 
  listaLabels.Add(TLabel(comp));

Si vas a usar un for para recorrer los componentes, puedes usar el mismo, incluso para asignar el texto también.
Algo así:

Muchas gracias por una respuesta tan extensa.

Voy a experimentar todo lo que me comentas, ale ya tengo entretenimiento para unas tardes ;)

Saludos