Die Items von TreeView.Items[] werden durchgängig durchgezählt. Somit kann das Item Delphi den Index 3, 5, 27, 3568, .. haben. Daher fragst du entweder mittels Schleife ab, welchen Index der Eintrag hat oder du merkst dir die TTreeNodes z.B. wie folgt (ungetestet!):
Delphi-Quellcode:
var
atNodeDel,
atNodeWin,
atNodeMul,
atNode : TTreeNode;
begin
atNodeDel := Form1.TreeView.Items.AddChild(
nil, '
Delphi');
atNodeWin := Form1.TreeView.Items.AddChild(
nil, '
Windows');
atNodeMul := Form1.TreeView.Items.AddChild(
nil, '
Multimedia');
while not EoF(t)
do begin
readln (t, gruppe);
readln (t, thema);
atNode :=
nil;
if gruppe = '
Windows API'
then atNode:= atNodeWin;
if gruppe = '
Delphi'
then atNode := atNodeDel;
if gruppe = '
Multimedia'
then atNode := atNodeMul;
Form1.TreeView.Items.AddChild(atNode, thema);
end;
Den Kram mit den TreeNodes kann man natürlich auch schön dynamisch erzeugt machen. Ist jetzt nur anschaungshalber so geschrieben.
PS: @ devnull: Man kann seinen Beitrag auch editieren.
