Ich brauche Hilfe mit der Treeview und Node.level.

[Wishmaster]

Hi


Es geht darum den letzten Level bzw. Eintrag(index) einer Node rauszukriegen.

Beispielsweise wen ich den Node.Level 1 Selektiere, will ich wissen wie fiel Sub Levels dieser hat. Später will ich das ganze in eine schleife Verarbeiten.


Danke im voraus.

[chaosben]

Hi!

Ich verstehe noch nicht ganz, worauf das hinauslaufen soll.
Willst du alle ChildNodes durchlaufen? Oder willst du nur alle ersten Kinder durchiterieren?

[marabu]

Guten Morgen,

auch ich habe leichte Verständnisschwierigkeiten. Die Anzahl der Sublevels heißt in Fachkreisen Höhe des Teilbaums und ein solcher Teilbaum wird durch seinen Wurzelknoten repräsentiert. Jeder Knoten ist Wurzel eines Teilbaumes, dessen Höhe so bestimmt werden kann:

Delphi-Quellcode:

function GetHeight(tn: TTreeNode): Integer;

  function MaxLevel(tn: TTreeNode): Integer;
  var
    i, level: Integer;
  begin
    Result := tn.Level;
    if tn.Count > 0 then
    begin
      for i := 0 to Pred(tn.Count) do
      begin
        level := MaxLevel(tn.Item[i]);
        if Result < level then
          Result := level;
      end
    end;
  end;

begin
  if Assigned(tn)
    then Result := MaxLevel(tn) - tn.Level
    else Result := -1;
end;

Den letzten child node eines Knoten erhältst du mittels node.GetLastChild(), seinen Level und Index über die gleichnamigen properties.

Grüße vom marabu

[Wishmaster]

Hi

@marabu danke für den Code das ist genau das was ich brauchte. War wohl en denkfeiler meinerseits.

Ich lade ne DB in eine TreeView die ich dann auch editieren kann, nur mit dem löschen hatte ich so meine Probleme.