Neuer Titel, Altes Prob: Mein Binärbaum

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