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]