MatchesMask

[zeras]

Ich hatte das bisher so gelöst:

Delphi-Quellcode:

  FilterPredicate := function(const Path: string; const SearchRec: TSearchRec): Boolean
                     begin
                       //wir filtern das Hidden Directory "System Volume Information" raus
                       if (TFileAttribute.faHidden in TPath.GetAttributes(Path))
                       or (TFileAttribute.faSystem in TPath.GetAttributes(Path))
                       then begin
                         Result := False;
                         Exit;
                       end;
                       //auch keine Index und Indexold auswerten
                       if (UpperCase(SearchRec.Name) = UpperCase(fNameIDXFile))
                       or (UpperCase(SearchRec.Name) = UpperCase(fNameIDXFileOld))
                       then begin
                         result := False;
                         Exit;
                       end;
                       //es dürfen nur Dateien sein, die nur Ziffern im Dateinamen haben
                       if not MatchesMask(SearchRec.Name, '[0-9]*.*[0-9]') then begin
                         result := False;
                         Exit;
                       end;
                       Result := true;
                     end;


  WFiles := TDirectory.GetFiles(DriveDisk, FilterPredicate);

Wir würde ich denn deinen Vorschlag einbauen?
regular expression '\d{8}\.\d{3}'