You are not logged in.
Dear visitor, welcome to Aqua Computer Forum. If this is your first visit here, please read the Help. It explains how this page works. You must be registered before you can use all the page's features. Please use the registration form, to register here or read more information about the registration process. If you are already registered, please login here.
Quoted
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!
Quoted from "wacs601"
Danke YOGi !
Kann mir evtl. jemand mal das quellcode-mässig darstellen ?
Sind denn keine PASCAL-Freaks hier ?
MfG
wacs601
-