FileExists mit Wildecard-Support

[Bernhard Geyer]

"Früher" (Delphi 6) hat FileExists Wildcard unterstützt.
Man konnte also suche ob eine Datei ein Pattern unterstützt.
Mittlerweile macht es FileExists nicht mehr.

Was wäre der (schnellste) Ersatz dafür, denn es schon in Delphi gibt?

[dummzeuch]

TFilesystem.FindMatchingFile aus meiner dzLib:

https://osdn.net/projects/dzlib-tool...zFileUtils.pas

Delphi-Quellcode:

class function TFileSystem.FindMatchingFile(const _Mask: string; out _Filename: string): TMatchingFileResult;
var
  Sr: TSearchRec;
begin
  Result := mfNotFound;
  if 0 = FindFirst(_Mask, faAnyFile, Sr) then
    try
      repeat
        if (Sr.Name <> '.') and (Sr.Name <> '..') then begin
          _Filename := Sr.Name;
          if (Sr.Attr and SysUtils.faDirectory) <> 0 then
            Result := mfDirectory
          else
            Result := mfFile;
          Exit;
        end;
      until 0 <> FindNext(Sr);
    finally
      FindClose(Sr);
    end;
end;

[himitsu]

Delphi-Quellcode:

if TDirectory.GetFiles('C:\Irgendwo', 'abc*.xyz') <> nil then

zumindestens einfach, falls schnell genug.

Ansonsten ist das wohl am Schnellsten:

Delphi-Quellcode:

var Dummy: TWIN32FindData;

if Winapi.Windows.FindClose(FindFirstFile('C:\*.ini', Dummy)) then
  Beep;

FileExists hat früher nur FindFirstFile gemacht (oder vielleicht auch damals schon mit CreateFile, aber zumindestens mit anderer Bedingung für den Fallback).
Jetzt macht es ein CreateFile ... falls das nicht ging (durch Sharing blockiert), wird zwar immernoch alternativ FindFirstFile gemacht, aber nicht bei einem "ungültigen" Namen, was es mit Wildcard nunmal ist.

PS: TFile.Exists macht intern auch nur FileExists, also diesbezüglich keine Änderung.

[Bernhard Geyer]

danke erstmal.

Gerade gefunden das ich schon eine entsprechende Helper-Funktion implementiert hatte.
Scheinbar bei der Suche falschen Suchbegriff genutzt :wall: