Thema: Delphi Problem mit Zeigern

Einzelnen Beitrag anzeigen

mkinzler
(Moderator)

Registriert seit: 9. Dez 2005
Ort: Heilbronn
39.858 Beiträge
 
Delphi 11 Alexandria
 
#11

Re: Problem mit Zeigern

  Alt 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
  Mit Zitat antworten Zitat