Pfad von Tree View auslesen lassen

[Slash77]

Hallo,
habe folgendes Problem: Habe einen TreeView den ich mit Daten aus einer Tabelle vollmache.
Ich benutzte den FastReport um hinter jedem Knoten vom TreeView das anzeigen zu lassen was dahinter ist. So und jetzt zu meinem Problem. Ich will im FastReport den aktuellen Pfad von jedem Knoten anzeigen lassen. Die Knoten haben natürlich auch verschiedene Levels.Ich will auch nicht den selektierten das kriege ich hin. Das ganze soll später mal im Hintergrund ablaufen.Also nur der Pfad vom jeweiligen soll sich nur im FastReport ändern.

MFG

SLASH77

[APP]

Hallo Slash77,
herzlich willkommen im DP-Forum!

Ich habe Deine Frage mehrmals durchgelesen, und verstehe sie leider noch immer nicht.

Poste mal ein paar Code-Zeilen und eine etwas genauere Beschreibung Deines Problems,
und dann "schau mer mal".

[Slash77]

Hallo Armin,

Ich habe in Delphi ein TreeView.Der TreeView hat Knoten und Levels.
Hinter jedem Knoten ist ein Dokument oder ein weiteres Child.
Dann habe ich noch ein FastReport in dem ich das Dokument angezeigt bekomme.

In dem FastReport habe ich ein extra Feld wo ich den Pfad ausgeben will wo gerade
das Dokument ist, dass ich auf dem FastReport sehe.

Das ist mein einziges Problem: Wie kriege ich den Pfad vom Anfangsknoten bis zum Knoten mit dem Dokument ?

Das ganze sollte zudem noch variabel sein.

Ich hoffe, dass ich jetzt besser beschreiben konnte

im voraus schon mal vielen Dank

MFG

Slash77

[mschaefer]

Moin, Spätmoin,

Ein Ansatz ist folgender:

Delphi-Quellcode:

{ im OnClick-Ereignis des TreeViews }

var   MyTreeNode  : TTreeNode;
      MyPath      : string;
begin
      MyPath      := '';
      
      { aktuell angeclickten Node nehmen}
      MyTreeNode  :=  TreeView.Selected;

      { nach oben laufen von Parent zu Parent bis kein Parent mehr}
      while MyTreeNode.Parent <> nil do
      begin
         MyPath  :=  MyTreeNode.Text + '\' + MyPath;
         MyTreeNode := MyTreeNode.Parent;
      end;

      { Endslash eliminieren }
      MyPath := copy(MyPath,1,Pred(Length(MyPath )));

      LabelPath.Caption := MyPath;
end;

Grüße und gut Nacht // Martin

[IngoH]

Das ist ja witzig.

Genau das gleiche habe ich auch für FastReport programmiert.

Wofür brauchst Du "Deinen" Report-Explorer?

Gruß
Ingo