Hallo Leute,
man kann einen Stapel auf der Basis einer einfach verketteten Liste implementieren und man kann in einer solchen Liste auch ein beliebiges Element löschen, aber dann spricht man nicht mehr von einem Stapel - der kennt nur PUSH, POP, PEEK, ISEMPTY, CLEAR. Auch wenn hier ohne Klassen implementiert wird, sollte man die beiden Abstraktionsebenen LISTE und STAPEL sauber auseinander halten. Und auch
PStapel = ^TZettel ist ein Stilfehler.
Delphi-Quellcode:
type
PZettel = ^TZettel;
TZettel = record
inhalt: string;
next: PZettel;
end;
var
stapel: PZettel;
Hier sind noch eine Reihe von handwerklichen Fehlern enthalten, aber ich fürchte, dass das in diesem Thread nicht so sehr von Interesse ist.
Freundliche Grüße