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);
idx2:=Lista2.add(SpinBox20);
for x := 0 to MEMO1.Lines.Count-1 do
begin
Etiqueta:=Lista1.items[x];
Etiqueta.Text:=MEMO1.LINES[X];
end;
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.