TreeView - Archiv erstellen

[atgis]

Mh Ok Danke...hat mich auch scon weitergebracht...

Delphi-Quellcode:

//Inhalt von TXT's in Memo Laden
procedure TForm1.TreeView1Click(Sender: TObject);
begin
 with Sender as TTreeView do
  case Selected.Level of
   0: ShowMessage('Pfad nicht gefunden');
   1: Memo.Lines.LoadFromFile(ExtractFilePath(ParamStr(0)) + TreeView1.Selected.Level[0]+'\'+TreeView1.Selected.Text+'.txt');
  end;
end;

Doch hier "TreeView1.Selected.Level[0]" ... das funktioniert so nicht...ich brauch aber genau an der Stelle im Pfad den Namen vom Übergeordneten Node...also quasie Level 0...

Wie geht das?