MatchesMask

[zeras]

Zitat von peterbelow:

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, funktioniert.