Neuer Titel, Altes Prob: Mein Binärbaum

[Feechan]

hey, danke!
Wie geht das? dann mach ich es selbst ^^
Fee
P.S.:Schon jemand was entdeckt? ich krieg noch die krise und mein info lehrer ist alles andere als hilfsbereit.... den kann ich nicht fragen
Meine Klassen ignorieren sich gegenseitig, ich weiß auch nicht weiter...

[Binärbaum]

Zitat von Feechan:

ich weiß ist net viel aber unter insertleft wollt ich dann Tbintree.root benutzen, findet der aber net.....

Das kann Delphi nicht finden, da root im TBinTree deklariert ist, die Prozedur, in der du darauf zugreifst aber zu TBinTreeNode gehört.

MfG
Binärbaum

[Feechan]

ja ich weiß aber wie soll ich das sonst machen?
Die deklarationen hat mein info-lehrer vorgegeben, hat der sich vertan oder geht das?

[Binärbaum]

Zitat von Feechan:

ja ich weiß aber wie soll ich das sonst machen?
Die deklarationen hat mein info-lehrer vorgegeben, hat der sich vertan oder geht das?

Vielleicht geht das. Aber ich würde - wenn ich die freie Wahl hätte- das anders lösen.
Man könnte die Deklaration so ändern:

Delphi-Quellcode:

type PBinTree = ^TBinTree;
     TBinTree = record
                 left, right: PBinTree;
                 value: string;
     end;

Demzufolge würde ich die Funktionen für Einfügen usw. seperat schreiben, ohne Klassen zu verwenden. Dann kann man rekursiv auf dem Baum traversieren. Ist meines Erachtens nach einfacher zu implementieren, wenn auch nicht so schön wie mit Klassen.

MfG
Binärbaum

[Feechan]

Ja das ist das Prob, ich hab keine wahl.
sonst geht das nicht? das was du geschreiben hast, hatten wir noch nicht

[Binärbaum]

Tja, wenn das so vorgegeben ist, und du unbedingt im TBinTreeNode auf TBinTree.root zugreifen willst, dann kann man das über einen Zeiger lösen. Dazu übergibst du der Prozedur als zusätzlichen Parameter noch einen Pointer auf TBinTree. Somit kannst du auch darauf zugreifen.
(Was besseres fällt mir im Moment nicht ein.)
[Edit]
Oder darf man die Prozeduren auch nicht ändern?
[/Edit]

[Feechan]

meinst du damit, ich soll in der prozedur noch eine variable vom typ TBintreenode (var wurzel:Tbintreenode) deklarieren und dann bsp: Wurzel:=root?
oder wurzel:=tbintree.root?

[bttb930]

ach was, VERGISS es!! Fang bloß nicht mit type PBinTreeNode = ^TBinTreeNode an, dein ansatz ist viel besser.

Problem ist dies:

if neuerknoten.value=tbintree.root.value then begin was ist denn TBinTree? Eine Klasse. Also keine Instanz.

Der Inhalt von InsertLeft könnte wie folgt aussehen:

  Left := L; fertig, warum willst du irgendwas mit Root prüfen? Wozu braucht die Node überhaupt ein Wissen über die Root?

[Binärbaum]

Zitat von Feechan:

meinst du damit, ich soll in der prozedur noch eine variable vom typ TBintreenode (var wurzel:Tbintreenode) deklarieren und dann bsp: Wurzel:=root?
oder wurzel:=tbintree.root?

Eigentlich von Typ TBinTree (denn dort ist ja root). Also etwa so:

Delphi-Quellcode:

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

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

end;
end;

Das müsste dann funktionieren. Tree muss natürlich der zugehörige TBinTree sein.

[Feechan]

Jo danke ich probiers mal aus!