Wie lösche ich eine komplette Liste? (Pointer)

[negaH]

Chewie hat den iterativen Algorithmus aufgezeigt, vielleicht hilft dir vom Verständnis her noch der rekursive Algo weiter.

Delphi-Quellcode:

procedure Free(P: PNode);
begin
  if P <> nil then
  begin
    Free(P.Next);
    Dispose(P);
  end;
end;

Gruß Hagen