Binärer Baum mit Klasse

[ford42]

Hey,
ich habe einen binären Baum mit einem Record geschrieben und soll nun den record mit einer Klasse ersetzten.

Nun habe ich folgendes: http://pastebin.com/7eB8GZ1U
Jedoch kommt z.B. beim einfügen ein Fehler, da New(PCurrentNode); PCurrentNode.FDaten nicht initialisiert und ich deshalb ja darauf auch keinen Zugriff habe. :/

Weiß jemand wo der Fehler liegt? :gruebel:


Vielen Dank
LG ford42

[mkinzler]

Eine Klassenvariable ist schon eine Referenz (Zeiger) es gibt keine Notwendigkeit einen extra Zeiger zu deklarieren.
Man fordert hierfür auch keinen Speicher an, sondern macht das implizit durch Instantiieren.

Delphi-Quellcode:

TNode = class;

TNode = class
    private
      FDaten: String;
      FLinks: TNode;
      FRechts: TNode;
      FTreeNode: TTreeNode;
    public
      constructor Create;
  end;

Delphi-Quellcode:

  CurrentNode := TNode.Create; //Neuer Node erzeugen

  CurrentNode.FDaten := eingabe;
  CurrentNode.FLinks := nil;
  CurrentNode.FRechts := nil;

[ford42]

Ah ok, perfekt, dankeschön. :)

LG ford42