Problem mit Zeigern

[praesident]

Zitat von Macci:

Joa, dann benutze sowohl meine PUSH als auch meine POP Funktion.

Hier nochmal:

Delphi-Quellcode:

PROCEDURE push(VAR zkopf:tzeiger;inhalt:Char); 
var zhilf:tzeiger; 
BEGIN 
new(zhilf); 
zhilf^.inhalt:=inhalt; 
zhilf^.next:=zkopf; 
zkopf:=zhilf 
END; 

FUNCTION pop(VAR zkopf:tzeiger):char; 
BEGIN 
result:=zkopf^.inhalt; 
zkopf := zkopf^.next 
END;

Damit klappt es genau so, wie du es möchtest. Garantiert
Und beides in der Laufzeit O(1), also in konst. Laufzeit. Besser gehts nicht.

die pop funktion erzeugt bei mir bei
result:=zkopf^.inhalt; einen fehler

wieder diese exeption fehlermeldung sobald ich nen wert eingebe und auf berechnen klicke...