Zitat von
moelski:
So nachdem ich mein Löschen erweitert habe und alles auf NIL setze und auch rekursiv lösche gehts nun
Zitat von
moelski:
Delphi-Quellcode:
:
Node.Data := NIL;
TNodeInfo(Node.Data).Free;
:
:
Node := NIL;
Node.Free;
:
Kannst du mal bitte erklären, was das für Aktionen sind? Für mich sind die sinnfrei. Mal abgesehen von dem verwendeten
exit und der komischen While-Schleife, die zwar refursiv arbeitet, aber niemals prüft, ob
Node überhaupt noch existiert. Hast du überhaupt mal mit deiner Routine den letzten Node in deiner Struktur gelöscht?