DirectoryExists und IncludeTrailingPathDelimiter

[Helmi]

Hallo,

ich hatte in einem Projekt mal festgestellt, dass DirectoryExists true liefert, wenn ein leerer String in die Function IncludeTrailingPathDelimiter gelegt wird.

Deswegen hab ich mir mal schnell ein Testprojekt gebastelt um rauszufinden ob das wirklich so ist, oder ob ich in meinem Projekt einen Fehler gemacht habe.
Dazu folgender Code:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  S: String;

begin
  S := '';

  CheckBox1.Checked := DirectoryExists(IncludeTrailingPathDelimiter(S));
end;

Interessanterweise wird die checkBox true. Das würde bedeuten, dass der leere String mit dem Backslash auf einen Ordner verweisst.
Aber auf welchen? - Ich hab ja die Mutter aller Ordner im Verdacht: den Desktop

[DeddyH]

Unter DOS war das das Wurzelverzeichnis des aktuellen Laufwerks. Ich denke, das dürfte immer noch so sein.

[himitsu]

Ein '' müßte das aktuelle Verzeichnis sein und dieses muß ja zwangsläufig existieren.

'' wäre ein relaiver Pfad auf sich selber und dürfte quasi einem '.' entsprechen.

[DeddyH]

Ich habe es gerade einmal getestet und ein FindAllFiles auf das Verzeichnis losgelassen. Mir wurde das Wurzelverzeichnis von C: gelistet.

[himitsu]

Sehr interessant ... ich hätte es anders vermutet, so ala

Zitat:

'' = aktueller Pfad
'xyz' = Unterverzeichnis des aktuellen Pfades

Aber vermutlich ist es dann einfach soein "wir müssen unbedingt DOS-kompatibel bleiben"-Ding. :angel2:


Obwohl ...

Zitat:

'\xyz' = Unterverzeichnis des Hauptverzeichnisses

ich glaub es ist also doch richtig :oops:

[DeddyH]

Nee, aktueller Pfad wäre ja '.' und nicht ''. Mom, ich teste mal schnell.

[edit] Stimmt, mit Punkt bekomme ich das eigene Verzeichnis, wie erwartet. [/edit]

[Helmi]

Danke für die Antworten!

Das heisst jetzt für mich ich muss IncludeTrailingPathDelimiter erst einsetzen, nachdem DirectoryExists true liefert.

[DeddyH]

Oder einfach dafür sorgen, dass der Verzeichnisstring nicht leer ist.

[himitsu]

Delphi-Quellcode:

CheckBox1.Checked := (S <> '') and DirectoryExists(ExcludeTrailingPathDelimiter(S));

PS: wenn, dann Exclude... (k.A. ob DirectoryExists dieses schon eingebaut hat)

[DeddyH]

Zitat:

Zitat von himitsu

(k.A. ob DirectoryExists dieses schon eingebaut hat)

Den Gegenbeweis haben wir doch eben erbracht ;)