In TreeView eintragen

[devnull]

Hi, kann mir einer sagen, was ich hier gfalsch mache ?

Delphi-Quellcode:

repeat
  readln (t, gruppe);
  readln (t, thema);

  if gruppe = 'Multimedia' then selec := 0;
  if gruppe = 'Windows API' then selec := 1;
  if gruppe = 'Delphi' then selec := 2;

  Form1.TreeView.Items.AddChild(Form1.TreeView.Items[selec], thema);
until EOF (t);

gruppe und thema sind strings.


In der treeview existieren die hauptknoten [Multimedia,Windows API,Delphi].
Das Thema soll immer der jeweiligen Gruppe (Hauptknoten) untergeordnet werden ...

Nach den ersten zwei Eintragungen (die sind richtig) trägt das prog immer alles unter Windows API !!!?

Hoffe ihr könnt mir helfen
devnull

[devnull]

Ich hab den Verdacht, dass ich nach einer Eintragung irgendwie wieder aus dem Hauptknoten raus muss, und irgendwie in das erste "level" gelangen !

hoffe, dass ich mich jetzt nicht selber ********* hab ...

[Tpercon]

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. :wink:

[devnull]

Danke das klappt.