Gibts Alternativen zu File-/DirectoryExists?

[Sir Rufo]

Die Alternative baut man sich selber (die Fingerübung zum Feierabend)

Delphi-Quellcode:

type
  TFileDirExistsRet = ( fdeNo, fdeFile, fdeDir );

function FileDirExists( const FileOrDir : string ) : TFileDirExistsRet;
begin
  if DirectoryExists( FileOrDir )
  then
    Result := fdeDir
  else if FileExists( FileOrDir )
  then
    Result := fdeFile
  else
    Result := fdeNo;
end;

[Stevie]

Da als Delphi Version 2010 angegeben ist: zieh dir mal die IOUtils.pas rein

Alternativ die JclFileUtils.pas aus der JCL.

[himitsu]

und noch 'ne Fingerüberung nach dem Feierabend

Delphi-Quellcode:

type
  TFileDirExistsRet = (fdeNo, fdeFile, fdeDir);

function FileDirExists(const FileOrDir: String): TFileDirExistsRet;
var
  FindFileData: TWIN32FindData;
begin
  FindFileData.dwFileAttributes := INVALID_FILE_ATTRIBUTES;
  Windows.FindClose(FindFirstFile(PChar(FileOrDir), FindFileData));
  if FindFileData.dwFileAttributes = INVALID_FILE_ATTRIBUTES then
    Result := fdeNo
  else if FindFileData.dwFileAttributes and FILE_ATTRIBUTE_DIRECTORY = 0 then
    Result := fdeFile
  else
    Result := fdeDir;
end;

// oder

function FileDirExists(const FileOrDir: String): Boolean;
var
  FindFileData: TWIN32FindData;
begin
  FindFileData.dwFileAttributes := INVALID_FILE_ATTRIBUTES;
  Windows.FindClose(FindFirstFile(PChar(FileOrDir), FindFileData));
  Result := FindFileData.dwFileAttributes = INVALID_FILE_ATTRIBUTES;
end;

[Sir Rufo]

@himitsu
Nur meinen Code kann man auf Anhieb begreifen

[Satty67]

Zumindest die kurze Variante geht noch kürzer (Ok, hab' geschaut woher die SysUtils Funktionen die Infos holen):

Delphi-Quellcode:

function FileDirExists(s: String): Boolean;
begin
  Result := GetFileAttributes(PChar(s)) <> $FFFFFFFF;
end;

Result kann man natürlich noch auswerten für eine differenzierte Rückgabe, aber dann ist es auch nicht mehr kürzer.

[Jumpy]

Hallo und vielen Dank. Im nächste frag ich immer kurz vor Feierabend, wenn eure Finger dann so locker sitzen.

Zum Problem: Die Funktion braucht ja mehr als nur eine Boolche Rückgabe, deswegen ist die Anregung mit dem Record oder ist das eine Enumeration

Delphi-Quellcode:

type
  TFileDirExistsRet = ( fdeNo, fdeFile, fdeDir );

schonmal die wertvollste. Natürlich auch die Umsetzungsvorschläge.

Konkret muss ich mir dazu noch klar werden, was ich genau will. Ich denke da an sowas, wo mehrere Rückgabewerte möglich sind, z.B. wenn Filexists dann ja auch DirectoryExists. Im ObjectInspector gibts ja so Dinge. Heißen die dann Sets? Wenn ich dann so Fragen würde:

if fdeFile in FileDirExists(MeinPfadoderDatei) Das ist doch auch das, wo man die Dinge mit AND und OR verknüpft. War doch vor kurzem auch so ein Thread dazu. Such ich gleich mal.

[himitsu]

Delphi-Quellcode:

type
  TEnum = ( x, y, z ); 
  TSet1 = TEnum; 

  TSet2 = set of ( x, y, z );

  TRecord = record
    a: Integer;
    b: String;
  end;

Enum = enthält mehrere Werte, aber jeweils immer nur Einen gleichzeitig
Set = kann mehrere Werte gleichzeitig aufnehmen (oder Keinen)
Record = mehrere Variablen in einem

Ein Boolean ist quasi ebenfalls ein Enumerator, mit zwei Werten.
type Boolean = (False, True);

mit SET
if fdeFile in FileDirExists(MeinPfadoderDatei) then .
if FileDirExists(MeinPfadoderDatei) = [fdeFile] then .
if FileDirExists(MeinPfadoderDatei) = [fdeFile, fdeDir] then .
und ENUM
if FileDirExists(MeinPfadoderDatei) = fdeFile then .

[hathor]

Zitat von Satty67:

Zumindest die kurze Variante geht noch kürzer (Ok, hab' geschaut woher die SysUtils Funktionen die Infos holen):

Delphi-Quellcode:

function FileDirExists(s: String): Boolean;
begin
  Result := GetFileAttributes(PChar(s)) <> $FFFFFFFF;
end;

Result kann man natürlich noch auswerten für eine differenzierte Rückgabe, aber dann ist es auch nicht mehr kürzer.

Ist NICHT das Gleiche wie in #5.

Funktioniert in WIN 8 nicht, aber kurzer Code in #5 geht.