Im TreeView Dateien ohne endung

[Uwe 111]

Danke ich habe es hinbekommen. Und zwar so

Delphi-Quellcode:

Begin
  New (Info);
  Info^.Path := False;
  Info^.Name := aPath + SearchRec.Name;
  SearchRec.Name  := ChangeFileExt( SearchRec.Name , ''); <-------
  aTree.Items.AddChildObject (aNode, SearchRec.Name, Info);
End;