Im TreeView Dateien ohne endung

[mkinzler]

Sauberer wäre es aber so:

Delphi-Quellcode:

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