Zitat von
DeddyH:
Ungetestet:
Delphi-Quellcode:
PROCEDURE push(VAR zkopf:tzeiger;inhalt:char);
VAR zhilf, zneu:tzeiger;
BEGIN
//erstes Element soll angelegt werden
if zkopf = nil then
begin
new(zhilf);
zhilf^.inhalt := inhalt;
zhilf^.next := nil;
end
//eine weiteres Element soll angehängt werden
else
begin
zhilf:=zkopf;
while (zhilf <> nil) and (zhilf^.next <> nil) do
zhilf:=zhilf^.next;
new(zneu);
zneu^.inhalt:=inhalt;
zneu^.next:=NIL;
zhilf^.next:=zneu;
end;
zkopf := zhilf;
END;
super danke...schon mal kein fehler
werd mir das mal genauer anschauen, damit ich verstehe, warum bei mir immer der Fehler erzeugt wurde...
danke nochmal für eue hilfe