Sie sind nicht angemeldet.
Zitat
TYPE tzeiger=^verbund;
tverbund = RECORD
inhalt : STRING;
zeiger : tzeiger;
END;
VAR zeiger : tzeiger;
inhalt : STRING;
FUNCTION neueselement (in : STRING) : tzeiger;
VAR hz : tzeiger;
BEGIN
NEW(hz);
hz^.inhalt:=in;
hz^.zeiger := NIL;
neueselement := hz;
END;
PROCEDURE zeige (z : tzeiger);
BEGIN
WHILE z<> NIL DO
BEGIN
write(z^.inhalt);
z:=z^.zeiger;
END;
END;
...
hilfszeiger := neueselement (in);
hilfszeiger^.zeiger:=z;
z:= hilfszeiger;
Zitat von »wacs601«
Danke YOGi !
Kann mir evtl. jemand mal das quellcode-mässig darstellen ?
Sind denn keine PASCAL-Freaks hier ?
MfG
wacs601
-