TList Delphi

[delphi.com.ar]

Empezado por rose

Hola estoy utilizando un tlist en delphi para guardar losc omponentes de un scrollbox
guardo los componentes en la lista, pero no se como acceder al tipo de objeto de cada item en la lista. los objetos se guardan dinamicamente. solo necesito realizar un cast para saber que guarde despues. pe

mylist[i].items is TEdit

gracias

Como todo contenedor, el ScrollBox tiene una lista con los controles contenidos, puedes acceder a esta, utilizando algo como:

Código Delphi [-]
var
  i: Integer;
begin
  for i := 0 to ScrollBox1.ControlCount -1 do
    ShowMessage(ScrollBox1.Controls[i].Name);

Internamente Controls mantiene un TList con la lista de todos los controles. Pero si de todos modos quieres utilizar tu propio TList, la implementación es similar.

Empezado por rose

...solo necesito realizar un cast para saber que guarde despues...

No entiendo bien cual es tu duda... ¿Quieres saber como hacer un cast?

Código Delphi [-]
var
  i: Integer;
begin
  with ScrollBox1 do
    for i := 0 to ControlCount -1 do
      if Controls[i] is TButton then
        TButton(Controls[i]).Caption := '...'
      else if Controls[i] is TCustomEdit then
        TCustomEdit(Controls[i]).Text := '...';
end;

Saludos!

[rose]

Hola
es lo que estoy haciendo, pero el scroll tiene componentes dinamicos, lo que hice fue guardar cada uno en una Lista.
lo que quiero hacer es preguntarle al tlist que tiene guardado.

gracias

Empezado por delphi.com.ar

Como todo contenedor, el ScrollBox tiene una lista con los controles contenidos, puedes acceder a esta, utilizando algo como:

Código Delphi [-]
var
i: Integer;
begin
for i := 0 to ScrollBox1.ControlCount -1 do
ShowMessage(ScrollBox1.Controls[i].Name);




Internamente Controls mantiene un TList con la lista de todos los controles. Pero si de todos modos quieres utilizar tu propio TList, la implementación es similar.


No entiendo bien cual es tu duda... ¿Quieres saber como hacer un cast?

Código Delphi [-]
var
i: Integer;
begin
with ScrollBox1 do
for i := 0 to ControlCount -1 do
if Controls[i] is TButton then
TButton(Controls[i]).Caption := '...'
else if Controls[i] is TCustomEdit then
TCustomEdit(Controls[i]).Text := '...';
end;





Saludos!

[delphi.com.ar]

Empezado por rose

lo que quiero hacer es preguntarle al tlist que tiene guardado.

De la misma forma que estoy recorriendo Controls puedes recorrer los objetos del TList

Código Delphi [-]
var
  i: Integer;
begin
  for i := 0 to List.Count -1 do
    if List[i] is TButton then
      TButton(List[i]).Caption := '...'
    else if List[i] is TCustomEdit then
      TCustomEdit(List[i]).Text := '...';
end;

Saludos!

[rose]

Listo muchas gracias...