Forum: Programmieren allgemein
Delphi
by peterbelow,
29. Jul 2019
etwa so (uses system.regularexpressions).
function TForm1.Filter(const Path: string; const SearchRec: TSearchRec):
boolean;
begin
Result := false ;
// log('Path: %s',);
// log( 'Name: %s',);
if (searchrec.Attr and (faDirectory or faHidden or faSysFile)) = 0 then
Forum: Programmieren allgemein
Delphi
by peterbelow,
28. Jul 2019
Verwende besser einen der overloads von GetFiles der eine Filtermethode als Parameter erlaubt. Dieser Methode wird dann jede gefundenen Datei übergeben und da kannst Du den Namen über eine regular expression untersuchen. Das ist wesenlich flexibler, z. B. würde die regular expression '\d{8}\.\d{3}' deinen Anforderungen genügen. Mit MatchesMask müßtest Du sowas wie
'.'
verwenden, da die...