hy
ich hab eine ADT-Liste erstellt und hab nun ein Problem mit der Listenoperation element_anhaengen...
Delphi-Quellcode:
procedure anhaengen(element:integer;var liste:TRIngliste);
var neues:TZeiger;
begin
NEW(neues);
neues^.inhalt:=element;
neues^.naechster:=ringliste.erstes;
if not (leer(liste)) then begin
ringliste.letzte^.naechster:=neues;
ringliste.letzte:=neues;
ringliste.aktuelles:=neues;
end
else begin
Ringliste.erstes:=neues;
Ringliste.aktuelles:=neues;
Ringliste.letzte:=neues;
end;
end;
es werden irgendwie keine listen elemente angehängt
kann mir einner helfen?