(Moderator)
Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.858 Beiträge
Delphi 11 Alexandria
|
Re: Problem mit Zeigern
29. Feb 2008, 21:04
Und zKopf ist dann die Wurzel?
Delphi-Quellcode:
PROCEDURE push(zkopf:tzeiger;inhalt:char;i:byte);
VAR zneu:tzeiger;
BEGIN
//Ermittle letztes Element
while zhilf^.next<>NIL do
zkopf := zkopf^.Next;
new(zneu);
zneu^.inhalt:=inhalt;
zneu^.next:=NIL;
zkopf^.next:=zneu;
END;
Markus Kinzler
|