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?
