Fertig ...
Delphi-Quellcode:
While NOT DMHaupt.QHauptTreeView.eof do // << ist schöner :-)
begin
AktNode := TTreeNode.Create(TreeView1.Items);
AktNode.Data := new(PView);
PView(AktNode.Data).ID := DMHaupt.QHauptTreeView.FieldByName('ID').AsInteger;
PView(AktNode.Data).ParentID := DMHaupt.QHauptTreeView.FieldByName('ParentID').AsInteger;
PView(AktNode.Data).Bezeichnung := DMHaupt.QHauptTreeView.FieldByName('Bezeichnung').AsString;
DMHaupt.QHauptTreeView.Next;
// Das weg ....
TreeView1.Items.Add(AktNode, PView(AktNode.Data).Bezeichnung);
// und das verwenden ...
WITH TheView.Items.Add(AktNode, PView(AktNode.Data).Bezeichnung) do
Data:=AktNode.Data;
end;
Habs im Debugmode gefunden.
In der Schleife "for i := 0 to TreeView1.Items.Count -1" war Items[i].Data immer 0.
Viel Spass,
Jens
