DirectoryExists und IncludeTrailingPathDelimiter

[Helmi]

Zitat von DeddyH:

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

Ist leider nicht möglich, da der String aus einem Edit kommt und das kann natürlich leer sein.

[DeddyH]

Dann in Anlehnung an #9:if DirectoryExists(ExcludeTrailingPathDelimiter(S)) then ... Sollte IMHO genügen.

[himitsu]

Wenn im Edit '\' drinsteht, dann wäre es nach dem ExcludeTrailingPathDelimiter ein ''
und wie nun bestätigt ist, entspricht diesem dem Hauptverzeichnis.
'\' entspricht auch dem Hauptverzeichnis und demnach würde das Ergebnis stimmen.

Steht aber wirklich nichts im Edit (PS: ein Trim könnte nicht schaden), dann existiert es nicht.

Delphi-Quellcode:

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

[DeddyH]

Jaja, Besserwisser

[Helmi]

Ich machs jetzt so:

Delphi-Quellcode:

S := Trim(Edit1.Text);

If DirectoryExists(S) then
  ShowMessage('jo, ist da!');

S := IncludeTrailingPathDelimiter(S);

//jetzt mit S mit angehängten Backslash weiter arbeiten

So erspar ich mir den Backslash mit ExcludeTrailingPathDelimiter wieder zu entfernen