oh, danke Deddy
eine Frage dazu: bei Stapel^.next^.next rufst du das übernächste Element auf?
Man kann ja auch eine Abfrage einbauen. Dann klappt das auch bei weniger als 2 Elementen.
Meine Lösung war bisher noch
Delphi-Quellcode:
procedure letztesloeschen(AStapel:PStapel);
var
Hilf:PStapel;
begin
Hilf:= AStapel;
While Hilf^.next <> nil do Hilf:= Hilf^.next;
Dispose(Hilf);
end;
Aber dann hab ich das Problem, dass das jetzt erste Element, auf das gerade gelöschte zeigt.