Stack - erstes Element löschen

[spox]

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.