Thema: Delphi MatchesMask

Einzelnen Beitrag anzeigen

zeras

Registriert seit: 11. Mär 2007
Ort: Saalkreis
1.616 Beiträge
 
Delphi 12 Athens
 
#3

AW: MatchesMask

  Alt 28. Jul 2019, 21:46
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}'
Matthias
Es ist nie falsch das Richtige zu tun!
- Mark Twain
  Mit Zitat antworten Zitat