AVLBaum - Suche

[wonnebeekiwi]

hi
habe eine frage: wieso gibt der folgende quellcode bei anfrage immer True zurueck, es sei denn der baum ist Leer?
ist wahrscheinlich sehr simple aber ich komme nicht drauf.

Delphi-Quellcode:

function TAVLBaum.KntnFinden(pItem: TItem): Boolean;
begin
  if Leer then
    Result := False
  else begin
    if Wurzel.isEqual(pItem) then
      Result := True
    else begin
      if Wurzel.isLower(pItem) then
        rechts.KntnFinden(pItem)
      else
        links.KntnFinden(pItem);
    end;
  end;
end;

function TAVLBaum.Leer():Boolean;
begin
  Result := (Wurzel = nil);
end;

die wurzel beinhalted TDaten ... ich denke das die funktionen alle passen. trotzdem nochmal das ganze programm.
(teilweise sind noch sachen ausgeschaltet und generell nicht ganz korekt)

[nuclearping]

Delphi-Quellcode:

      if Wurzel.isLower(pItem) then
        rechts.KntnFinden(pItem)
      else
        links.KntnFinden(pItem);
    end;

Wo ist da das Result?

[wonnebeekiwi]

hi...
erst mal danke ;).
also ich hab mir das so vorgestellt, dass das ganze rekursiv laeuft.... eigentlich soll die funkrion da wieder aufgerufen werden (bis die wurzel ein nil-zeiger oder den richtigen inhalt hat).
wie muss ich das result denn richtig implementieren?

[nuclearping]

Vielleicht so?

Delphi-Quellcode:

if Wurzel.isLower(pItem) then
        Result := rechts.KntnFinden(pItem)
      else
        Result := links.KntnFinden(pItem);
    end;

[wonnebeekiwi]

danke!! is ja relativ peinlich :wall: