War so in dem Beispielcode aus dem Internet. Das Löschen fehlen der Liste fehlt ja auch noch. Und beim Löschen eines Knotens entsteht auch noch ein Speicherleck. Das ist mir schon bewusst, aber es ging mir erst mal ums Prinzip und das Verständnis.
Allerdings muss ich die beiden Knoten ja mit
nil initialisieren. Oder wie würdest du das machen?
Löschen ohne Speicherleck:
Delphi-Quellcode:
procedure DeleteNextNode(Node: PNode);
var
TempNode: PNode;
begin
TempNode := Node.next;
Node.next := Node.next.next;
Dispose(TempNode);
end;