Zitat:
Ich machs "meisten" so...
abc.FUS ?
SameText/
Zitat:
AnsiSameText
oder
SameFileName
Und wenn du eh nur nach der Dateiendung filtern willst, ist das eh unnötig zuviel.
TDirectory.GetFiles(Dir, '*.fus', SOpt)
Und da wir schon dabei sind, gibt es eine geheime Funktion, in der Delphiklasse, denn sie lässt nicht Windows (
FindFirstFile) filtern, sondern macht das selbst
MatchesMask und das kennt auch Char-Sets/Ranges. (und nein, es ist kein RegEx!!!)
Delphi-Quellcode:
var
Year, i: Integer;
Found: string;
begin
Year := -1;
Found := '';
for var Filename in TDirectory.GetFiles('C:\_D', '*[0-9][0-9].fus', TSearchOption.soAllDirectories) do
if TryStrToInt(RightStr(ChangeFileExt(Filename, ''), 2), i) and (i > Year) then begin
Year := i;
Found := Filename;
end;
ShowMessage(i.ToString + ' ' + Found);
end;