Forum: Object-Pascal / Delphi-Language
Delphi
by brutus,
20. Nov 2004
wahrscheinlich bloss zu doof das zu raffen: aber werden beim rekursiven aufstieg nicht auch die koten gelöscht die vor dem aufruf der function noch keine blätter waren???
Forum: Object-Pascal / Delphi-Language
Delphi
by brutus,
20. Nov 2004
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:;
procedure TForm1.herbst;
procedure rek (VAR p:PKnot);
BEGIN
IF (p^.left<>NIL) OR (p^.right<>NIL) THEN
begin
rek(p^.left);