Auslesen aus einem Strukturbaum

[Christian Seehase]

Moin Eleonora,

dazu musst Du Dich vom angelickten Knoten die Parents hochhangeln, bis es keinen Parent mehr gibt, und dabei den Ergebnisstring erzeugen.
Beispielsweise so:

Delphi-Quellcode:

procedure TfrmMAIN.TreeView1Click(Sender: TObject);

var
  sPath  : string;
  tnWork : TTreeNode;

begin
  // Kein Node angeklickt, dann gibt's auch nichts zu tun
  if TreeView1.Selected = nil then exit;
  tnWork := TreeView1.Selected;
  sPath  := '';
  repeat
    sPath  := tnWork.Text + '\' + sPath;
    tnWork := tnWork.Parent;
  until tnWork = nil;
  Edit1.Text := sPath;
end;