Tree und seine Eigenschaften

[Muetze1]

Etwas performanter, da er nicht tiefer als bis zur 2. Ebene eintaucht:

Delphi-Quellcode:

Procedure Button1.Click(Sender: TObject);

  Procedure SecondLevel(AFirstNode: TTreeNode);
  Var
    lChild: TTreeNode;
  Begin
    If Assigned(AFirstNode) Then 
    Begin
      lChild := AFirstNode;

      While Assigned(lChild) Do
      Begin
        If lChild.Level < 1 Then
          SecondLevel(lChild.GetFirstChild)
        Else
          ShowMessage(lChild.Text);

        lChild := lChild.GetNextSibling;
      End;
    End;
  End;

Begin
  SecondLevel(TreeView1.Items.GetFirstNode);
End;

[kaiser1401]

Aber wo ja eh nur zwei ebenen da sind dacht ich mir es könnte reichen. außerdem find ich es etwas übersichtlicher... ;-)

btw: Hört dein Code nicht mit "Herbert" auf? NextSibling nimmt doch nur die Knoten gleicher Ebene zu einem gemeinsammen Parent, oder?

[Ajin]

:wall: arghl

Delphi-Quellcode:

if node.level = 1 then

...

Knapp vorbei ist auch daneben :drunken:

Vielen Dank Herr Kaiser!

[Muetze1]

Zitat:

Zitat von kaiser1401

btw: Hört dein Code nicht mit "Herbert" auf? NextSibling nimmt doch nur die Knoten gleicher Ebene zu einem gemeinsammen Parent, oder?

Richtig, und auch nicht. NextSibling ist richtig erläutert. Wenn er nun mit NextSibling ein NIL bekommt, kehrt er von der Funktion zurück zum Aufrufer und dort geht es dann eine Ebene höher weiter mit dem NextSibling, bis dieser NIL ist. Grundlage hierfür ist die Rekursion, wenn die Ebene noch kleiner als 1 ist.

[kaiser1401]

oh, das hatt ich dann wohl irgendwie übersehen. :oops: