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.