Thema: Delphi MatchesMask

Einzelnen Beitrag anzeigen

zeras

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

AW: MatchesMask

  Alt 29. Jul 2019, 19:53
etwa so (uses system.regularexpressions).

Delphi-Quellcode:
function TForm1.Filter(const Path: string; const SearchRec: TSearchRec):
    boolean;
begin
  Result := false ;
// log('Path: %s',[path]);
// log( 'Name: %s',[SearchRec.Name]);
  if (searchrec.Attr and (faDirectory or faHidden or faSysFile)) = 0 then
    result := Tregex.IsMatch(Searchrec.Name, '\d{8}\.\d{3}',[roIgnoreCase, roSingleline]);
end;
Danke, werde ich am Wochenende einbauen.
Matthias
Es ist nie falsch das Richtige zu tun!
- Mark Twain
  Mit Zitat antworten Zitat