Neuer Titel, Altes Prob: Mein Binärbaum

[bttb930]

außerdem warum unterscheidest du zw. TBinTree und TBinTreeNode? Eine Node ist doch ein Baum. Ich würde es so machen:

Delphi-Quellcode:

unit Unit2;

interface

type 
  TBinTreeNode = class
  private
    FLeft, FRight: TBinTreeNode;
    FValue: string;
    procedure SetLeft(l: TBinTreeNode);
  public
    constructor Create;
    destructor Destroy; Override;
    function IsEmpty: Boolean;
    property Left: TBinTreeNode read FLeft write SetLeft;
    {property Right und Value ähnlich, außerdem Depth etc)}
  end;

implementation

constructor TBinTreeNode.Create;
begin
  FLeft := nil;
  FRight := nil;
  FValue := '';
end;

destructor TBinTreeNode.Destroy;
begin
  FLeft.Free;
  FRight.Free;
end;

procedure TBinTreeNode.SetLeft(l: TBinTreeNode);
begin
  FLeft := l;
end;

end.

[Feechan]

das ist die vorgabe meines info-lehrers ich würds auch ganz anders machen ^^

[Binärbaum]

Zitat von Feechan:

das ist die vorgabe meines info-lehrers ich würds auch ganz anders machen ^^

Musst du also unbedingt auf
if neuerknoten.value=tbintree.root.value then ... prüfen?
Falls nein, dann lass' es einfach weg. Man könnte doch auch "einfach so" einfügen, ohne die Wurzel zu überprüfen.
Falls es aber unbedingt sein muss, dann wirst du dir was einfallen lassen müssen (z.B. Zeiger) oder wie auch immer du das lösen willst.

MfG
Binärbaum

PS:

Zitat von Feechan:

ich würds auch ganz anders machen ^^

Wie denn? Falls du da schon eine Idee hast, dann versuche doch diese auf die Vorgabe zu übertragen (falls das möglich sein sollte).