Stack - erstes Element löschen

[marabu]

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