ich weiss das auch, nur für mich ist es nicht ganz so leicht die zusammenhänge herauszufinden
bzw. diese anzupassen.
du meinst das, gell?
Delphi-Quellcode:
IF FindFirst(Path + '*.TXT', faAnyFile, SearchR) = 0 THEN
REPEAT
IF (SearchR.Attr <> faDirectory) THEN
BEGIN
// nach einem Wort im Dateinamen suchen
// pos ist CaseInsensitive!
IF POS('x', SearchR.Name) <> 0 THEN
FileList.Add(ChangeFileExt(SearchR.Name, '')); // [EDIT] ohne Extension[/EDIT]
