Vous n’êtes pas connecté.
Bonjour, visiteur, bienvenue sur les forums Aqua Computer Forum. Si c’est votre première visite, nous vous invitons à consulter l’Aide. Elle vous expliquera le fonctionnement de cette page. Pour avoir accès à toutes les fonctionnalités, vous devez vous inscrire. Pour cela, veuillez utiliser le formulaire d’enregistrement, ou bien lisez plus d’informations sur la procédure d’enregistrement. Si vous êtes déjà enregistré, veuillez vous connecter.
Citation
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;
Neues moddingtech.de Portal online!
Citation de "wacs601"
Danke YOGi !
Kann mir evtl. jemand mal das quellcode-mässig darstellen ?
Sind denn keine PASCAL-Freaks hier ?
MfG
wacs601
-