Delphi-PRAXiS
Seite 1 von 3  1 23      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi SysUtils.DirectoryExists (https://www.delphipraxis.net/213145-sysutils-directoryexists.html)

H.Bothur 5. Jun 2023 09:23

Delphi-Version: 10.4 Sydney

SysUtils.DirectoryExists
 
Liste der Anhänge anzeigen (Anzahl: 2)
Moin,

ich bekomme bei
Delphi-Quellcode:
SysUtils.DirectoryExists
einen Fehler den ich nicht verstehe:

Delphi-Quellcode:
  if not SysUtils.DirectoryExists(ArbeitsVerzeichnis +'\') then
  begin
    ShowMessage('Falsches Verzeichnis im INI-String !' +#13 +'Programm wird beendet');
  end;
Arbeitsverzeichnis ist in der Ini-Datei definiert und (zumindestens für mich) sieht das auch so aus als ob das Verzeichnis existiert. Sieht irgendjemand warum Delphi trotzdem die Meldung zeigt ?

In der Anlage ist einmal die INI-Datei und einmal der Ausschnitt aus dem Explorer.

Gruss
Hans

taveuni 5. Jun 2023 09:38

AW: SysUtils.DirectoryExists
 
Was steht denn in der Variable Arbeitsverzeichnis wenn Du Dir das mal mit dem Debugger ansiehst? Oder/und gib im "Fehlerfall" das nicht gefundene Verzeichnis in die Ausgabe mit.

Der schöne Günther 5. Jun 2023 09:40

AW: SysUtils.DirectoryExists
 
Zitat:

Arbeitsverzeichnis ist in der Ini-Datei definiert
Davon sehe ich dem Bild ehrlich gesagt nichts.

Außerdem: Du hast doch einen Debugger. Schau doch zur Laufzeit einfach, was in der Variable drinsteht.

DaCoda 5. Jun 2023 11:11

AW: SysUtils.DirectoryExists
 
Mache es doch einfach mal so, um zu sehen was da im Arbeitsverzeichnis steht:

Code:
  if not SysUtils.DirectoryExists(ArbeitsVerzeichnis +'\') then begin
    // ShowMessage('Falsches Verzeichnis im INI-String !' +#13 +'Programm wird beendet');
    ShowMessage(Arbeitsverzeichnis);
  end;

shebang 5. Jun 2023 11:13

AW: SysUtils.DirectoryExists
 
Ich sehe im Explorer ein Leerzeichen zwischen "AA" und "Zauner".

haentschman 5. Jun 2023 11:13

AW: SysUtils.DirectoryExists
 
Zitat:

Mache es doch einfach mal so, um zu sehen was da im Arbeitsverzeichnis steht:
...mit dem Debugger sollte man umgehen können. :roll: Da braucht man das nicht.

peterbelow 5. Jun 2023 12:41

AW: SysUtils.DirectoryExists
 
Zitat:

Zitat von H.Bothur (Beitrag 1523043)
Moin,

ich bekomme bei
Delphi-Quellcode:
SysUtils.DirectoryExists
einen Fehler den ich nicht verstehe:

Delphi-Quellcode:
  if not SysUtils.DirectoryExists(ArbeitsVerzeichnis +'\') then
  begin
    ShowMessage('Falsches Verzeichnis im INI-String !' +#13 +'Programm wird beendet');
  end;

Warum montierst Du noch ein '\' an den Namen? Das ist definiv falsch, der Backslash ist ein Pfadtrenner, nicht Teil des Namens!

himitsu 5. Jun 2023 12:53

AW: SysUtils.DirectoryExists
 
[edit] ups, den letzten übersehn [/edit]
Wozu denn das +'\' ?

Eher #10 statt #13,
oder besser noch Delphi-Referenz durchsuchensLineBreak.

Zitat:

Zitat von haentschman (Beitrag 1523053)
Zitat:

Mache es doch einfach mal so, um zu sehen was da im Arbeitsverzeichnis steht:
...mit dem Debugger sollte man umgehen können. :roll: Da braucht man das nicht.

Nja, den Pfad zusätzlich mit in die Fehlerausgabe, kann für den Benutzer auch manchmal hilfreich sein.

Und ja, siehe Antwort #5.

freejay 5. Jun 2023 14:07

AW: SysUtils.DirectoryExists
 
Pfade, die man kopieren kann, niemals abtippen. Das spart so viel Ärger (und meistens auch noch Zeit...).

PaPaNi 5. Jun 2023 14:30

AW: SysUtils.DirectoryExists
 
Wenn ich "\" am Ende des Pfades brauche, dann würde ich das mittels der Funktion IncludeTrailingPathDelimiter hinzufügen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 04:33 Uhr.
Seite 1 von 3  1 23      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz