Du bist nicht angemeldet.
Lieber Besucher, herzlich willkommen bei: Aqua Computer Forum. Falls dies dein erster Besuch auf dieser Seite ist, lese dir bitte die Hilfe durch. Dort wird dir die Bedienung dieser Seite näher erläutert. Darüber hinaus solltest du dich registrieren, um alle Funktionen dieser Seite nutzen zu können. Benutze das Registrierungsformular, um dich zu registrieren oder informiere dich ausführlich über den Registrierungsvorgang. Falls du dich bereits zu einem früheren Zeitpunkt registriert hast, kannst du dich hier anmelden.
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
-