|
Registriert seit: 12. Jun 2002
3.481 Beiträge
Delphi 10.1 Berlin Professional
|
15. Feb 2003, 20:08
Ersten lass das @ bei "treeview.items[j].data := @ liste;". Damit weist du .data die Adresse, an der die Variable liste steht zu und nicht die Adresse der Liste. TList.Create liefert bereits einen Pointer.
Zweitens entferne das liste.Free. Damit gibst du die Liste frei und .data zeigt ins Nirvana.
|