Delphi und schrottige/undurchdachte/chaotische File-APIs?

[Daniel]

Wenn ich mal aus einem XE3 zitieren darf:

Delphi-Quellcode:

class function TDirectory.Exists(const Path: string; FollowLink: Boolean = True): Boolean;
begin
  Result := DirectoryExists(Path, FollowLink);
end;

TDirectory.Exists ist nicht mehr als ein Wrapper für die entsprechende Funktion aus der Unit SysUtils.
Ja, man kann sich natürlich auch gleich entrüsten etc. - aber vielleicht schaut man vorher kurz nach.

[sh17]

Zitat von Daniel:

Wenn ich mal aus einem XE3 zitieren darf:

Delphi-Quellcode:

class function TDirectory.Exists(const Path: string; FollowLink: Boolean = True): Boolean;
begin
  Result := DirectoryExists(Path, FollowLink);
end;

TDirectory.Exists ist nicht mehr als ein Wrapper für die entsprechende Funktion aus der Unit SysUtils.
Ja, man kann sich natürlich auch gleich entrüsten etc. - aber vielleicht schaut man vorher kurz nach.

"entrüst", anders herum hätte mehr Sinn gemacht. (geht aber sicher wegen Unitabhängigkeiten nicht)

[himitsu]

Das mit dem unterschiedliechen Verhalten zwischen SysUtils und IOUtils, betrifft vor allem die Funktionen zum Zerlegen von Pfaden. (Drive/Path/Dir/Name/Ext)

Warum das DirectoryExists True liefert, nur im Debugger, hab ich noch nicht untersucht.
Bin an 'nem anderen Fehler dran und brauchte eine schnelle Lösung, für das hier.


System:
Server 20016 R2 (relativ frisch installiert), Delphi XE (noch), IDEFixPack, DDevExtensions, GExperts, CnPack (bei mir Beides zu großen Teilen deaktiviert, weil nervig), DevExpress, Devart PgDAC, FireDAC, DocuInsightPro, Eurekalog, FastReport, TChartPro, ImageEn usw.

AQTime Pro, aber nicht in der IDE installiert und auch das Vorinstalliere aus der IDE rausgeworfen, weil es ständig Probleme macht.
(obwohl es nicht verwendet wird, findet man es innerhalb der IDE überall im Stacktrace, welcher auch manchmal dort abbricht)

[Stevie]

Bli bla blubb, TDirectory.Exists ist sogar mit inline markiert, d.h. es kommt exakt derselbe Binärcode heraus, egal ob nun SysUtils.DirectoryExists oder TDirectory.Exists aufgerufen wird.

Aber einfach mal bisschen Cargo cult verbreiten

Ich tipp ja mal auf pebcak

[himitsu]

"Ich" hatte nie gesagt, dass TDirectory.Exists und DirectoryExists sich unterscheiden.

TPath.ChangeExtension und ChangeFileExt
TPath.GetExtension und ExtractFileExt
tuen das aber definitiv

Im Debugger war mir nur leider aufgefallen, dass TDirectory.Exists immer True lieferte, obwohl weder Datei noch Verzeichnis mit diesem Namen existierten. (ergab eine schöne Entlosschleife)

Und weil mich diese sinnlos doppelt Abfrage ala if TDirectory.Exists() or TFile.Exists() sowieso störte und ein Blick in den Code von FileExists und DirectoryExists zeigten, dass es damit auch nur auf ein if FileExists() or DirectoryExists() hinaus liefe, hatte ich das einfach mal schnell durch ein if GetFileAttributes() <> INVALID_FILE_ATTRIBUTES ersetzt und nicht weiter drüber nachgedacht, weil das Problem nun weg war. Dabei war mir nur wieder einmal die Kommentierung bezüglich TPath.ChangeExtension aufgefallen und es hat mich angekotzt, dass schon mehrmals unnötig viel Zeit dafür drauf ging.

[p80286]

Zitat von himitsu:

Im Debugger war mir nur leider aufgefallen, dass TDirectory.Exists immer True lieferte, obwohl weder Datei noch Verzeichnis mit diesem Namen existierten. (ergab eine schöne Entlosschleife)

Sicher?

if not(directoryexists(blabla) then forcedirectory(blub) Funktioniert vollkommen richtig

Gruß
K-H

[himitsu]

ForceDirectory prüft intern ebenfalls auf Exists.

Und ja, sicher.
Zwei Mal beim Debuggen aufgefallen und auch nochmal nach Beenden und Neustart von IDE+Programm war das Verhalten noch so.

Hier im Debugger des XE3 nicht nachstellbar, obwohl ja praktisch noch der selbe Code.

[Sherlock]

Wäre es nicht hilfreich, die betroffene (veraltete) Delphi-Version etwas deutlicher hervorzuheben? Schließlich könnte man sich diesen Thread dann in einer ruhigen Minuten gönnen, ohne gleich in Schockstarre zu verfallen.

Sherlock