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.