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:

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

[Khabarakh]

Du musst himi wahrscheinlich nicht die Funktionsweise eines GCs erklären. Eher deine Idee, dass es sowas unter Delphi.Win32 gäbe :gruebel: .

[JnZn558]

Zitat:

Zitat von ghost007

Garbage Collection

danke fuer deine tips, himitsu und Khabarakh haben beide wohl recht, bei delphi win32 sehe ich auch nicht ein, dass da kein GC gaebe. schliesslich kein DotNet

im moment sieht mein code folgendes aus

Delphi-Quellcode:

PList = ^vList;
  vList = record
    nCount    : Cardinal;  // number of datas
    pItem    : Pointer;   // data pointer
    pNextItem : PList;     // next item
    pLastItem : PList;     // previous item
  end;

  vArray = class
    m_list : vList;

  public
    constructor Create(pValue: Pointer);
    destructor Destroy; override;
  end;

  constructor ZArray.Create(pValue: Pointer);
  var
    p : Pointer;
  begin
    if Assigned(pValue) then
    begin
      with Self do
      begin
        m_list.nCount    := 1;
        New(m_list.pItem);
        m_list.pItem^     := pValue^; // hier soll der fehler sein
        m_list.pNextItem := nil;
        m_list.pLastItem := nil;
      end
    end;
  end;

folgende fehler spuckt der aus

Zitat:

E2015 Operator not applicable to this operand type

oh Sorry, mir war ein tippfehler unterlaufen.

[daywalker9]

Wo den?

Also in welcher Zeile?

[DeddyH]

Ich steig da nicht mehr durch: PList, ZList, vList, m_list, was ist was? Mir scheint, da ist die Zuordnung durcheinander geraten.

[Khabarakh]

Zitat:

Zitat von DeddyH

Ich steig da nicht mehr durch: PList, ZList, vList, m_list, was ist was?

dito, aber es muss auf jeden Fall

Delphi-Quellcode:

m_list.pItem := pValue;

heißen.
Und ein with self bewirkt nicht wirklich viel ;) .

[JnZn558]

ein tippfehler war mir unterlaufen, ich hab es nun geaendert.

Delphi-Quellcode:

PList = ^vList;
  vList = record
    nCount    : Cardinal;  // number of datas
    pItem    : Pointer;   // data pointer
    pNextItem : PList;     // next item
    pLastItem : PList;     // previous item
  end;

  vArray = class
    m_list : vList;

  public
    constructor Create(pValue: Pointer);
    destructor Destroy; override;
  end;

  constructor ZArray.Create(pValue: Pointer);
  var
    p : Pointer;
  begin
    if Assigned(pValue) then
    begin
      with Self do
      begin
        m_list.nCount    := 1;
        New(m_list.pItem);
        m_list.pItem^     := pValue^; // hier soll der fehler sein
        m_list.pNextItem := nil;
        m_list.pLastItem := nil;
      end
    end;
  end;

Zitat:

Zitat von Khabarakh

Zitat:

Zitat von DeddyH

Ich steig da nicht mehr durch: PList, ZList, vList, m_list, was ist was?

dito, aber es muss auf jeden Fall

Delphi-Quellcode:

m_list.pItem := pValue;

heißen.
Und ein with self bewirkt nicht wirklich viel ;) .

ich moechte den wert kopieren, nicht der adresse von pValue, denn wenn die pValue im fall auf NIL gesetzt wird, dann schmiert pItem auch ab, is doch so nicht?

[Khabarakh]

Zitat:

Zitat von JnZn558

ein tippfehler war mir unterlaufen, ich hab es nun geaendert.

Für Records und Klassen aber bitte einen T-Präfix benutzen. Und für den Rest keine ungarische Notation :pale: .

Zitat:

ich moechte den wert kopieren, nicht der adresse von pValue

Damit kopierst du die Adresse in pValue. Den referenzierten Wert kannst du schlecht kopieren, wenn du nicht einmal seine Größe kennst.

Zitat:

denn wenn die pValue im fall auf NIL gesetzt wird, dann schmiert pItem auch ab, is doch so nicht?

Nach dem Aufruf? Nein, es ist eben der Wert von (= die Adresse in) pValue.

[JnZn558]

Zitat:

Zitat von Khabarakh

Zitat:

Zitat von JnZn558

ein tippfehler war mir unterlaufen, ich hab es nun geaendert.

Für Records und Klassen aber bitte einen T-Präfix benutzen. Und für den Rest keine ungarische Notation :pale: .

Zitat:

ich moechte den wert kopieren, nicht der adresse von pValue

Damit kopierst du die Adresse in pValue. Den referenzierten Wert kannst du schlecht kopieren, wenn du nicht einmal seine Größe kennst.

Zitat:

denn wenn die pValue im fall auf NIL gesetzt wird, dann schmiert pItem auch ab, is doch so nicht?

Nach dem Aufruf? Nein, es ist eben der Wert von (= die Adresse in) pValue.

danke sehr fuer deine hilfe, da der wert nicht schlecht kopieren laesst, is dann nix mehr zu machen. hehe
ich muss damit wohl leben, was delphi zu bieten hat