Stack - erstes Element löschen

[spox]

Hallo liebe DP! :)

Ich sitz gerade wieder vor einem Problem mit meinem Stack. Ich möchte das letzte Element eines Stapel löschen... Ich habe mir dafür eine Variable Hilf angelegt, die auf den Anfang des Stapels zeigt, damit ich den nicht verliere. Ich möchte den Stapel mit einer Schleife durchlaufen und das letzte Element dann disposen. Das Blöde hier dran ist nur, dass meine While-Schleife einfach nie zu Ende geht. Sie rattert pausenlos durch, was eine CPU-Auslastung von 100 % zur Folge hat. :gruebel:

Delphi-Quellcode:

procedure letztesloeschen(AStapel:PStapel);
var
  Hilf,temp:PStapel;
begin
  Hilf:= AStapel;
  While AStapel <> nil do temp:= AStapel^.next;
  Dispose(temp);
  AStapel:= Hilf;
end;

Die Prozedur ist in einer anderen Unit nur für Stapelprozeduren. Der Stapel wird durch den Parameter übergeben. Der Stapel wird beim Formcreate auf nil gesetzt.

Ich hoffe ihr könnt mir helfen :)

[mkinzler]

Das letzte ist beim Stack doch das erste.

[spox]

Da hast du natürlich Recht. Dann habe ich mich vielleicht falsch ausgedrückt. Ich will das erste Element entfernen. Praktisch das Element, das auf nil zeigt.

[idontwantaname]

Hallo!

Ich möchte nur mal anmerken, dass du eine Endlosschleife hast ;)

Delphi-Quellcode:

While AStapel <> nil do temp:= AStapel^.next;

Es ändert sich doch rein gar nichts an der Schleifenbedingung, wenn du temp etwas zuweist -> sprich Endlosschleife.

[mkinzler]

Es sollte doch .Prior sein oder?

[spox]

und wie löse ich das Problem? :?
Der Stapel zeigt doch irgendwann auf nil. Nämlich dann, wenn das erste Element erreicht worden ist... Oder ist das nicht richtig? :gruebel:

@mkinzler: was heißt .Prior?

[mkinzler]

Ich würde den Vorgänger (.Next) nicht Nachfolger (.Prior) nennen. Ist zwar egal, verwirrt aber.

Delphi-Quellcode:

While AStapel^.next <> nil

[spox]

deine Lösung klappt nicht... ist trotzdem Endlos :?

Ich habe jetzt mal versucht, AStapel:= AStapel^.Next (

Delphi-Quellcode:

While AStapel <> nil do AStapel:= AStapel^.next;

) zu setzen. Aber das geht auch nicht, da es eine Adressverletzung sei. Bin echt ratlos...

[mkinzler]

Bist du sicher, dass das Root-Element auf Nil zeigt

[spox]

Ich setze den Stapel beim FormCreate auf nil. Der ganze Stapel sieht dann wie folgt aus:

Stapel -> nil (leerer Stapel)

nach Hinzufügen des ersten Elementes:

Stapel -> [Element 1] -> nil

nach Hinzufügen eines weiteren Elementes:

Stapel -> [Element 2] -> [Element 1] -> nil

...

UPDATE:

ich habs jetzt soweit hinbekommen, dass ich das letzte Element gelöscht hab (dispose). Das Problem an der Sache ist ja jetzt, dass das jetzt Letzte bzw. das vorher vorletzte immer noch auf das gelöschte zeigt. Das geht ja natürlich nicht. Deshalb gibts eine Fehlermeldung.

edit:

oh, danke Eddy :)
eine Frage dazu: bei Stapel^.next^.next rufst du das übernächste Element auf?

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