hallo an alle erstmal,
ich wollte wissen wie man bei einem binärenbaum mit einer prozedur alle blätter (d.h. wissenselemente ohne nachfolger) löschen kann?!
ich dachte schon an folgendes:;
Delphi-Quellcode:
procedure TForm1.herbst;
procedure rek (VAR p:PKnot);
BEGIN
IF (p^.left<>NIL) OR (p^.right<>NIL) THEN
begin
rek(p^.left);
rek(p^.right);
end
ELSE dispose(p) //hier evtl. noch eine abfrage ob der knoten im hilfsarray steht
END
begin
rek(root);
end;
das problem hierbei ist ja bloss dass durch die rekursion alle elemente gelöscht werden würde.
ich dachte schon an ein hilfsarray in dem ich die vorgängerknoten der blätter speichere und dies noch beim Else Zweig abfrage.
Ich würde dass aber gerne irgendwie effektiver lösen !
Habt ihr da nicht irgendeinen vorschlag???
mfg brutus