Treeview: von Linksorientierung auf Item schließen

[rebugger]

Habe wieder mein Treeview mit dynamischen Inhalt gefüllt.
Nun weiß ich z.B., dass mein ersten Item den Abstand von Links mit 0 hat, also ein Hauptnode ist.
Das nächste ist 1, also ein Child.
Das nächste ist 0, also wieder ein Node.
Das nächste ist 1, also ein Child des vorhergehenden Nodes

Das Node ist also, das Item mit dem LinksAbstand-1, dass zuletzt in der Liste steht.

Wie erhalte ich dieses TTreeNode ?

[toms]

Hi,

Weiss nicht, ob ich deine Frage genau verstanden habe,
aber ich würd's so machen:

Delphi-Quellcode:

var
 i: Byte;
begin
 with TreeView1 do
 for i := 1 to 2 do
 begin
  if Items.Count-i >= 0 then
  if TreeView1.Items[Items.Count-i].Level = 0 then
   ShowMessage(TreeView1.Items[Items.Count-i].Text);
 end;

[rebugger]

Level war das Stichwort, vielen Dank !

Für alle neugierigen:

Delphi-Quellcode:

function TForm1.FindNode(iLevel : Integer): TTreeNode;
var
  i : Integer;
begin
  Result := nil;
  for i := (lstClasses.Items.Count - 1) downto 0 do
    if lstClasses.Items.Item[i].Level = iLevel then
    begin
      Result := lstClasses.Items.Item[i];
      break;
    end;
end;