einfach verkettete Liste

[grenzgaenger]

sag mal, hast du dir mein beispiel angesehen? #8 das funktioniert und zeigt die verwendung einer verketteten liste. anlage, traverse und auflösung. das kannst prima als vorlage hernehmen um deine datenstruktur zu erweitern... aber die grundfunktionen bleiben das selbe.

vergleich mal dieses beispiel:

Delphi-Quellcode:

while AktNode <> NIL do
begin
  Writeln('Node mit Data: ', AktNode.data);
  AktNode := Traverse(Aktnode); //Geht zum nächsten Knoten
end;

mit deinem code...

Zitat von malibu85:

Delphi-Quellcode:

while (work^.next<>NIL) do
begin
      Memo1.Lines.append(work^.inhalt);
      memo1.Lines.append(IntToStr(work^.Nummer));
      work:=work^.next;
end

fällt dir da bspw. was auf? du travesierst die liste nur unzureichend... hier hätte deine while schleife so auszusiehen ... while work <> NIL do ... noch viel erfolg.