template verkettete liste

[JnZn558]

hallo, moechte gern so eine template verkettete liste bauen, fuer allgemeine datentyp

Code:

PList = ^TList;
vList = record;
value    : TObject;
pNextItem: PList;
pLastItem: PList;
end;
TList = vList;

wie kann ich jez z.B string, integer wert an value zuweisen, da value von TObject is.
bzw, wie lese ich den wert in string, integer aus um andere variable zuzuweisen.

Code:

data: vList;
i   : integer;
data.value := 3; // so?
i := data.value; // wie soll hier richtig sein

oder is konzept mit dem datentyp TObject ueberhaupt falsch, wenn ja, was soll man stattdessen nehmen

thx, thx

[Sir Rufo]

Im Prinzip passt das so, aber ich würde als Bezeichner nicht TList verwenden,
denn so heißt schon eine Klasse in Delphi

[DeddyH]

Erstens das und zweitens müsste Value dann eine Klasse sein (oder sich zumindest als solche ausgeben).

[Namenloser]

Ich würde Value entweder als Pointer deklarieren, oder gleich alles mit Objekten lösen. Objekte sind ja im Grunde auch Pointer, bieten aber einen größeren Komfort und sind lesbarer.

Edit: Außerdem kannst du bei einer objektorientierten Lösung von deiner Basisklasse typensichere Listen ableiten.

[JnZn558]

kann jemand bitte ein kleines beispiel code zeigen?
sag viel mehr aus als worte

[DeddyH]

Wenn es eine allgemein zu nutzende doppelt verkettete Liste sein soll:

Delphi-Quellcode:

type
  PElement = ^TElement;
  TElement = record
    Data: Pointer;  //hier die Nutzerdaten
    Prior,          //Vorgänger in der Liste
    Next: PElement; //Nachfolger in der Liste
  end;

[JnZn558]

danke sehr fuer die beispielcode, wenn ich die kette wieder freigeben will, reicht einfach erste daten zu loeschen?
oder muss ich alle hintereinander loeschen

[ghost007]

Zitat von JnZn558:

danke sehr fuer die beispielcode, wenn ich die kette wieder freigeben will, reicht einfach erste daten zu loeschen?
oder muss ich alle hintereinander loeschen

Wenn mich nicht alles täuscht musst du alle referenezen auf elemente deiner kette löschen, dann wirft der garbage collector alle weg. Bin mir aber nicht 100% sicher.

[himitsu]

Garbage Collector?

Sieht mir eher nach normalem Delphi(32) aus.

[ghost007]

Garbage Collection