Como hacer una lista enlazada dinamica en delphi

[rgstuamigo]

A que te refieres con que Delphi es pura referencia?

Bueno lei por ahi eso y queria que me lo aclararan.
En cuanto a ti Roman esta bueno lo dices lo voy a probar, gracias por tu sugerencias aunque quisiera implementarlo personalmente pero aun me queda una duda ¿Existen templates en delphi si o no?

[[maeyanes]]

Empezado por rgstuamigo

Bueno lei por ahi eso y queria que me lo aclararan.
En cuanto a ti Roman esta bueno lo dices lo voy a probar, gracias por tu sugerencias aunque quisiera implementarlo personalmente pero aun me queda una duda ¿Existen templates en delphi si o no?

Pues hasta Delphi 2007, no...


Saludos...

[rgstuamigo]

uhhhhh Bueno los que hemos trabajado en java o en algun otro lenguaje que los tenga ;un template=plantilla que ayuda a trabajar sobre todo para evitar los casting a cada rato, por decir en el ejemplo de Lepe tiene que hacer una especie de casting para acceder al objeto TImage y al objeto TPanel,y cada vez tendria que hacer lo mismo si quieres acceder a dichos objetos, en cambio con template(Al menos en java)tu creas la lista y le dices por medio de plantillas "Voy a tener una lista digamos de TPanel" (al momento de crearla)entonces la lista esperará solo objetos TPanel y nada mas,y cuando saque de lista me devolvera objetos TPanel,sin necesidad de hacer casting a cada rato; no se si me explico, bueno al menos esto es posible en Java por eso preguntaba si exite en Delphi.

[[Lepe]]

Efectivamente no lo hay, pero siempre puedes heredar de TObjectList y sobreescribir las funciones principales para que solo permitan el Tipo que quieras (tardarás 1 minuto cuando sepas hacerlo).

Mediante Gexperts o CnPacks, podrías guardar ese código "maestro" y cuando deseas utilizarlo sólo has de pegarlo y usar "Buscar y reemplazar" Tpanel por TImage. Listo ahora tu lista en lugar de aceptar TPanel, ahora acepta TImage.

Saludos.

[[maeyanes]]

Hola...

Empezado por rgstuamigo

uhhhhh Bueno los que hemos trabajado en java o en algun otro lenguaje que los tenga ;un template=plantilla que ayuda a trabajar sobre todo para evitar los casting a cada rato, por decir en el ejemplo de Lepe tiene que hacer una especie de casting para acceder al objeto TImage y al objeto TPanel,y cada vez tendria que hacer lo mismo si quieres acceder a dichos objetos, en cambio con template(Al menos en java)tu creas la lista y le dices por medio de plantillas "Voy a tener una lista digamos de TPanel" (al momento de crearla)entonces la lista esperará solo objetos TPanel y nada mas,y cuando saque de lista me devolvera objetos TPanel,sin necesidad de hacer casting a cada rato; no se si me explico, bueno al menos esto es posible en Java por eso preguntaba si exite en Delphi.

Esto lo puedes lograr en Delphi heredando desde TObjectList o desde TList:

Código Delphi [-]
type
  TPanelList = class(TObjectList)
  private
    function GetPanels(Index: Integer): TPanel;
    procedure SetPanels(Value: TPanel; Index: Integer);
  public
    function Add(APanel: TPanel): Integer;
    procedure Delete(APanel: TPanel);
    property Panels[Index: Integer]: TPanel read GetPanels write SetPanels;
  end;

implementation

function TPanelList.GetPanels(Index: Integer): TPanel;
begin
  Result := Items[Index] as TPanel
end;

procedure TPanelList.SetPanels(Value: TPanel; Index: Integer);
begin
  Items[Index] := Value
end;

function TPanelList.Add(APanel: TPanel): Integer;
begin
  Result := inherited Add(APanel)
end;

procedure TPanelList.Delete(APanel: TPanel);
begin
  inherited Delete(APanel)
end;

Con esto puedes tener una lista de TPanel sin hacer casting a cada rato...


Saludos...

[rgstuamigo]

Esta muy bueno tu codigo Maeyanes gracias por compartir tus conocimientos.
Saco mis conclusiones haciendo una comparacion entre Delphi y Java:
En Delphi para poder hacerlo tengo que crearme una nueva clase heredada de TObjectList y volver a escribir los metodos;
*Significa que cada vez que quiero que mi lista de objeto(TObjectList)
sea de algun tipo, necesariamente (para evitar los casting)debo crearme
una nueva clase heredada de TObjectList, digamos que si quiero una lista
de numeros tengo que hacerme una nueva clase de numero,si quiero de TButton
me hago de una nueva clase, y asi sucesivamente.Esto como he dicho solo para
evitar hacer casting a cada rato.
*En java solo pongo en plantilla el tipo de dato que va ser y listo,
no nesito estar creandome nuevas clases y reescribiendo metodos.
ES EXATAMENTE lo que hemos estado hablando durante todo el hilo.
Seria bueno que Delphi en las proximas versiones tuviera los famosos TEMPLATE
Seria de mucha ayuda para los programadores que nos gusta este IDE's.
MUCHISIMAS GRACIAS AMIGOS por compartir sus experiencias y sugerencias.

[[Lepe]]

Empezado por rgstuamigo

Seria bueno que Delphi en las proximas versiones tuviera los famosos TEMPLATE

como me piques, hago un script con cnpacks que lo vas a flipar

Esto permitiría que (en delphi 5, 6, 7) con 1 clic de ratón y especificar "TPanel", se creara automáticamente la clase de maeyanes.

Los BDS tienen muchas virguerías, por ejemplo añadir un patrón Singleton, etc, pero todo se basa en lo mismo: métodos de rápida implementación para el programador, en realidad, las clases hay que crearlas.

Ten presente que Java es un lenguaje interpretado, Delphi es compilado.
Delphi es un lenguaje altamente tipificado, mientras que java..... no lo sé, pero imagino que no.

No quiero entrar en polémicas de cual es peor o mejor, simplemente quiero que se tengan en cuenta para no pedirles peras al olmo.

Saludos

[rgstuamigo]

No tiene nada que ver si el lenguaje es interpretado,o compilado amigo Lepe,
chekea este link y este otro y veras unos ejemplos de Template en C++, sabiendo que c++ puede ser compilado tambien.Lo de java solo lo ponia por ejemplo.
Lo menos que quiero es hacer una polemica que Java es mejor o Delphi o C++ o Python, o Ruby, etc. Eso seria para el foro de Debate.
Eso es lo interesante de hacerlo con Template puedes verlo ahi.
Saludos......