Hallo Bjoerk,
mir ist da nichts aufgefallen. Allerdings hätte ich an Deiner Stelle eine doppelt verkettete Liste genommen, das erspart den immer wiederkehrenden Einstieg über Firstnode.
Das hier solltest Du einmal überdenken, da meiner Meinung nach FirstNode FirstNode bleibt, bist FirstNode=NIL!
Delphi-Quellcode:
procedure TListe.DelItem(Index: integer);
var
Node: PNode;
begin
Node := GetNode(Index-1);
DeleteNextNode(Node);
FirstNode := GetNode(0);
LastNode := GetNode(Count-1);
end;
Und die Definition von TData ist irgendwie doppelt gemoppelt.
Gruß
K-H