Neuer Titel, Altes Prob: Mein Binärbaum

[Feechan]

Hallo!
Also ich hab da ein prob das mich schon seit tagen aufregt:
Ich soll einen binär-baum als klasse TBinTree implementieren.
Dazu hab ich eine Klasse TBinTreeNode für einen Knoten des Baumes mit den Eigenschaften
left,right,value (Linker Nachfolger, Inhalt, Rechter Nachfolger).
Außerdem befinden sich in dieser Klasse noch Prozeduren wie zum Beispiel leftinsert, rightinsert, create(l:tbintreenode;v:value;r:tbintreenode) <---- in TBinTreenode (???????)
Die Klasse TBinTree hat die Variable "Root:TbinTreeNode", als Zeiger für die "Wurzel" des Baumes.
Nun will ich die Prozedure leftinsert implementieren und stoße dabei auf ein Problem:
Ich will ein Element der Klasse TBinTreeNode an Root (TbinTree) anhängen. Dabei funktioniet
TBintree.root.left:=neuerknoten;
nicht. Root findet er nicht, sonst alles andere auch nicht. Könntet ihr mir mal helfen?



Fee

[Daniel]

Hallo und herzlich willkommen in der DP.

Bitte benutze den Edit-Button () und gebe Deinem Beitrag einen aussagekräftigen Titel. Danke Dir.

[Binärbaum]

Dazu müsste man wohl mal ein bissl Quelltext sehen (z.B. Deklaration von TBinTreeNode,...), um sagen zu können, woran es liegt.
Wie weit bist du denn schon gekommen?

MfG
Binärbaum

[dizzy]

Der Titel ist natürlich schon vieeel besser, und so problembeschreibend . Er sollte auf das eigentliche Problem hinweisen, nicht darauf dass es dringend ist. Das ist hier jede 2. Frage

[Binärbaum]

Zitat von dizzy:

Der Titel ist natürlich schon vieeel besser, und so problembeschreibend . Er sollte auf das eigentliche Problem hinweisen, nicht darauf dass es dringend ist. Das ist hier jede 2. Frage

Da fand ich den vorherigen Titel "HILFE! BINÄRBAUM ;-P" doch noch besser als "HILFE! Dringed, warum geht das so nicht?".

[Feechan]

habt ja recht ich such den quelltext mal und stell den hier rein, moment^^

[Luckie]

Du hast den Titekl ja immer noch nicht aussagekräftig gemacht.

[Feechan]

Das ist der Quelltext:

Delphi-Quellcode:

unit Unit2;

interface

type tbintreenode=class
private
left,right:tbintreenode;
value:string;
public
constructor create (l: tbintreenode; v:string; r: tbintreenode);
function empty:boolean;
procedure insertLeft(l:tbintreenode);
{procedure insertRight(r:Tbintreenode);
function leftTree:Tbintreenode;
function Righttree:Tbintreenode;
function elem:string;
function count: Integer;
function depth: integer;}
end;

Type TBinTree=class
public
root:tbintreenode;
constructor create;
function empty:boolean;
{function depth:integer;
function count:integer;
destructor destroy;}
end;



implementation

constructor tbintree.create;
begin
root:=tbintreenode.create(Nil,'A',Nil);
end;

function tbintree.empty;
begin
if (root.left=Nil) and (root.right=Nil) then result:=true else result:=false;
end;

//------------------------------------------------

constructor tbintreenode.create(l:tbintreenode; v:string; r:tbintreenode);
begin
left:=l;
right:=r;
value:=v;
end;

function tbintreenode.empty:boolean;
begin

end;

procedure tbintreenode.insertLeft(l:tbintreenode);
var neuerknoten,tl:tbintreenode;
begin
neuerknoten:=l;

if neuerknoten.value=tbintree.root.value then begin

end;
end;

end.

------------------------
ich weiß ist net viel aber unter insertleft wollt ich dann Tbintree.root benutzen, findet der aber net..... oder das im if-teil ist auch ein fehler. warum?
Titel kommt sofort ^^
Fee

[edit=Luckie]Delphi-Tags eingefügt. Beim nächsten Mal bitte selber machen. Mfg, Luckie[/edit]

[Binärbaum]

[Edit]
Sorry, war falsch.
[/Edit]

[Dust Signs]

Könntest du den Code bitte mal formatieren, der is ja unlesbar. Außerdem: was willst du uns damit

Zitat:

oder das im if-teil ist auch ein fehler. warum?

mitteilen?

Dust Signs