in dateinamen nach einem wort suchen

[APP]

Hallo horst,
meinst Du so?

Delphi-Quellcode:

PROCEDURE TForm1.Button6Click(Sender: TObject);
   PROCEDURE DirList(CONST Path: STRING; FileList: TStrings);
   VAR
      SearchR                      : TSearchRec;
   BEGIN
      // Bestimmte Dateien suchen -> *.TXT
      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]
               END;
         UNTIL FindNext(SearchR) <> 0;
      FindClose(SearchR);
   END;

BEGIN
   DirList('C:\', ListBox1.Items);
END;