Como hacer una lista enlazada dinamica en delphi

[[coso]]

pero entonces, ¿para qué la genericidad? Para aprender y realizar el típico ejercicio de listas, no hace falta irse por las ramas, se hace una lista de enteros y ya estuvo.

antes de usar OOP, estas listas con struct eran muy comunes (y tambien un nido de bugs). Claro esta, que el struct (el record) no tenia unicamente un solo tipo de dato. Este tipo de cadenas se hacian cuando se necesitaban arrays dinamicos de estructuras (si bien tambien se podia hacer con un unico puntero a una variable de ese tipo, aunque no hubiese 'contacto' entre los nodos), pero ahora en delphi se puede dejar un array sin determinar la longitud y cambiarlo con setlenght directamente en el momento que te plazca. Por lo tanto, la lista dinamica quedaria anterior te quedaria como...

Código Delphi [-]
var
v : array of variant;
begin
   setlength(v,19);
end;

o bien de un record...

Código Delphi [-]
type 
  Estruct = record
  v1 : variant;
  dato1 : integer;
  ...
end;
 
var
  v : array of Estruct
begin
  setlength(v,19);
  ...
end;

que creo que es lo q comenta roman. Lo que vengo a decir es que si bien las listas dinamicas genericas se creaban de esa manera, indicando el puntero al nodo siguiente y al anterior, ahora es una tipo de estructura mas que desfasada (o ya implementada en el propio lenguaje). Saludos y a ver si te sirve la información

[rgstuamigo]

Gracias por los comentarios amigos, quisiera aclarar unos puntos:

además, amigo "rgstuamigo", si te empeñas en hacer una lista enlazada "a la antigua" tendrás que implementar toda su funcionalidad a mano,... ya sabes: Insertar, eliminar, ir hacia adelante, ir hacia a atras... etc, etc... ¿Por que no intentar con los objetos que te proponen? tienen muchas ventajas y muy probablemente sean menos dolores de cabeza...

No es que quiera reinventar la rueda, sino queria ver verdaderamente las potencialidades de delphi en estas areas, como les dije yo he implementado listas simples,lista doblemente enlasadas, arboles (binarios,AVL,Rojo y Negro,B,B+)en otros lenguajes de Programacion (Java concretamente a pesar que ya algunos entas implementados en el propio lenguaje)y no he tenido muchos inconvenientes(solo inconvenientes logicos), pero de lenguaje no.
Yo creo que estas estructuras de datos son parte escencial en la vida de un programador, y quien no las conosca estaria omitiendo un gran conocimiento de la Programacion.
A veces me topado con Docentes en la Universidad (U) que te piden hacer algo pero sin utilizar lo que ya esta echo.¿Entonces que te queda?
pues hacerlo y pienso que es bueno en cierta manera por que aprendes muchos a pesar de que a veces tu trabajo se vuelve tedioso.

Quizás rgstuamigo es un estudiante y recién está viendo sobre los tipos abstractos de datos y a modo de tarea le pidieron que implementace una lista doble encadenada.

Delphius no es que no los conosca, les repito que yo ya he implentado algo parecido, lo que deseaba saber como implementarlo en Delphi ya que nunca habia implementado listas en delphi pero me reté a poder hacerlo generico para poder utilizarla en cualquier ocasion.

Por cierto, me parece que Tiburón ya traerá los famosos templates estilo C++ ¿no? Y, de hecho, creo que FreePascal ya los tiene.

Es exactamente lo quiero que me aclaren sobre los templates en delphi y si pueden con un ejemplito; ademas la otra duda es que si ¿Delphi en pura referencia?
Lo que dices tu Roman para que hacerlo generica , pues te puedo decir si tuvieras un lista generica la podrias usar en cualquier circunstancias que la necesites y con cualquier tipo de objeto es decir Una sola implementacion y te sirve de mucho, por eso quiero saber sobre los templates en Delphi.
Buenos esas mis aclaraciones y dudas que tenia, agradesco sus opiniones queridos amigos

[[maeyanes]]

Hola...

A que te refieres con que Delphi es pura referencia?

Ahora, como ya te han mencionado, Delphi cuenta con algunas clases que resuelven lo que necesitas. Checa la unidad Contnrs, ahí vienen implementadas las estructuras de pilas, colas, listas ordenadas, etc...

Ya con esas clases básicas puedes heredar para hacer lo que desees...

Ahora te pongo un ejemplo de como hacer una lista con estructuras record:

Código Delphi [-]
type
  PRegistro = ^TRegistro;

  TRegistro = record
    Data: Variant;
  end;

// Ejemplo de uso con un objeto TList:
var
  RegistroList: TList;
  Registro: PRegistro;

begin
  RegistroList := TList.Create;
  New(Registro);
  Registro^.Data := 'Hola mundo';
  RegistroList.Add(Registro);
  New(Registro);
  Registro^.Data := 23;
  RegistroList.Add(Registro);
  // Vamos a recorrer la lista:
  for I := 0 to RegistroList.Count - 1 do
    ShowMessage(PRegistro(RegistroList[i])^.Data);
  // Liberamos la memoria:
  for I := 0 to RegistroList.Count - 1 do
    Dispose(PRegistro(RegistroList[i]));
  RegistroList.Clear;
  RegistroList.Free
end;

Saludos...

[[coso]]

A que te refieres con que Delphi es pura referencia?

creo q se refiere a que la definicion de un objeto es directamente un puntero a ese objeto...

[[maeyanes]]

Hola...

Empezado por coso

creo q se refiere a que la definicion de un objeto es directamente un puntero a ese objeto...

La definición de un objeto en Delphi es una clase... y esta no es un puntero a un objeto...

¿O será que te entendí mal?



Saludos...

[roman]

Empezado por maeyanes

La definición de un objeto en Delphi es una clase... y esta no es un puntero a un objeto...

Bueno, internamente, una variable objeto es un apuntador al objeto, sólo que se omite el operador ^.

// Saludos

[[maeyanes]]

Hola...

Empezado por roman

Bueno, internamente, una variable objeto es un apuntador al objeto, sólo que se omite el operador ^.

// Saludos

Si, eso si lo tengo presente... es por eso que pregunté si no le entendí mal...

A lo mejor coso se refería a lo que tú comentas...


Saludos...

[roman]

Empezado por rgstuamigo

Lo que dices tu Roman para que hacerlo generica , pues te puedo decir si tuvieras un lista generica la podrias usar en cualquier circunstancias que la necesites y con cualquier tipo de objeto es decir Una sola implementacion y te sirve de mucho, por eso quiero saber sobre los templates en Delphi.
Buenos esas mis aclaraciones y dudas que tenia, agradesco sus opiniones queridos amigos

Pues precisamente, un TList o un TObjectList los tienes casi para cualquier circunstancia sin necesidad de entrar en los templates. Tú que has trabajado en Java, sabrás que ahí, quizá más que en Delphi, todo son objetos. Entonces, un TObjectList es más que suficiente. Pero como en Delphi tenemos más tipos de datos estructurados, como los records, no hay problema porque tenemos al TList, y mira que el TList te sirve igual para objetos (de hecho, le he visto pocas ventajas a un TObjectList sobre un TList).

Ahora, ¿que quieres hacer listas de datos simples como enteros, caracteres o strings (1)? Pues basta que los "envuelvas" en un registro o una clase

Código Delphi [-]
TString = class
  Valor: String;
end;

y ya puedes hacer tu lista de Strings.

// Saludos

(1) Estrictamente hablando, String no es un tipo simple, y si lo "envuelves en un record habrá que tener cuidado con la liberación de la memoria que usa.

[[maeyanes]]

Hola...

Empezado por roman

...y mira que el TList te sirve igual para objetos (de hecho, le he visto pocas ventajas a un TObjectList sobre un TList).

De hecho, creo que la única ventaja que tiene TObjectList sobre TList, es que la primera puede ser la dueña de los objetos y liberarlos automáticamente, sin tener que hacerlo "a mano" (propiedad OwnsObjects)


Saludos...

[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...

[[coso]]

La definición de un objeto en Delphi es una clase... y esta no es un puntero a un objeto

no, me equivoque Una instancia de una clase es un puntero (en delphi)

[[coso]]

Si, eso si lo tengo presente... es por eso que pregunté si no le entendí mal...

A lo mejor coso se refería a lo que tú comentas...

Exactamente! me llegan los mensajes a destiempo