Delphi-Quellcode:
Item:=TreeView2.Items.AddChild(Parent, Kategorie.Artikel[j].ArtikelName);
Item.Data:=Pointer(Kategorie.Artikel[k]); //Artikel[k] liefert TArtikel zurück
Oben j und unten k?
Delphi-Quellcode:
if (TObject(TreeView2.Selected.Data) is TArtikel) then
begin
Parent:=TKategorie(TreeView2.Selected.Parent.Data);
end else
begin
Parent:=TKategorie(TreeView2.Selected.Data);
end;
Und Selected ist nicht nil? Und Selected.Parent auch nicht?