Stack - erstes Element löschen

[DeddyH]

Delphi-Quellcode:

while (Stapel^.next <> nil) and (Stapel^.next^.next <> nil) do
  Stapel := Stapel^.next;
temp := Stapel^.next;
Stapel^.next := nil;
Dispose(temp);

Ich hoffe, ich habe keinen Denkfehler dabei gemacht.

[edit] Doch, habe ich. Bei weniger als 2 Elementen haut das so nicht hin. Aber der Ansatz müsste zumindest richtig sein. [/edit]

[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.

[DeddyH]

Ich habe mir gedacht, ich bleibe beim "vorletzten" Element stehen, da ich ja das letzte löschen will.

[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

[Klaus01]

Guten Abend,

ein Bild sagt mehr als tausend Worte....

Wer mehr Infos zu Stapel, Kellerautomaten und lifo (Last in First out) haben möchte
kann gerne mal hier schauen.