Einzelnen Beitrag anzeigen

ajaxson

Registriert seit: 6. Sep 2007
14 Beiträge
 
#1

ADT-Liste Listenelement anhaengen

  Alt 7. Apr 2008, 16:48
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?
  Mit Zitat antworten Zitat