Datei-/Verzeichnisname als DatenTyp

[Sir Rufo]

Zitat von himitsu:

Zitat:

Trotz der impliziten Umwandlung in einen String akzeptiert die Format-Funktion diesen Record nicht als Parameter. Darum so:

Nja, da Format, bzw. das Open-Variant-Array "mehrere" Typen entgegennehmen kann, weiß der Compiler nicht, welchen Typen er nun genau nehmen soll (so intelligent, um nachzusehen, daß eigentlich nur der eine "String" möglich wäre, ist Delphi anscheinend leider nicht )

War ja auch nur als Hinweis gedacht, damit sich niemand wundert

Zitat von himitsu:

ExpandFileName/GetFullPathName nimmt leider das aktuelle Arbeitsverzeichnis ... schön wäre es aber, wenn dein Code das Programmverzeichnis (der EXE) als Ausgangspunkt nutzen würde.
> also entweder selber Parsen
> oder das aktuelle Arbeitsverzeichnis ändern (danach natürlich wieder zurück)
- Es gibt leider nichts (zumindestens hab ich noch nichts gefunden),
welches wie GetFullPathName arbeitet und wo man selber einen Ausgangspfad angeben kann (es sei denn da wird ebenfalls geparst)

Wenn am Anfang 'A:\' bis 'Z:\' vorkommt, dann kannst du das GetCurrentDirectory/SetCurrentDirectory notfalls auch überspringen.

PS: GetLongPathName und GetShortPathName

Nee, eine Pfadangabe "..\Pfad\Datei.dat" bezieht sich immer und überall auf das aktuelle Arbeitsverzeichnis. Das Verhalten möchte ich nicht ändern. Finde ich immer komisch, wenn auf einem System die gleichen Parameter und Befehle ein anderes Ergebnis liefern.

Für einen relativen Bezug zum Anwendungsverzeichnis nimmt man halt
MyFileName := '$(app)\..\Pfad\Datei.dat';

Zitat von himitsu:

Und dem Directory könnte man auch einen Enumerator verpassen, um dann voa For-In alle Dateien aufzulisten, bzw. mehrere Enumeratoren als Record-Funktion, für Dateien, Verzeichnisse und mit Parametern zur Auswahl.

das werde ich auf jeden Fall noch übernehmen

Zitat von himitsu:

[add]
Operatoren, um _FileName und _DirName zu casten wären gut, damit dort die RAW-Werte übergeben werden und nicht über den String-Umweg diese Infos verloren gehn. Wobei man auch alles hätte in einen Typen packen können, um nicht casten zu müssen ... beim Zugriff auf Dir-Eigenschaften, bei einer Datei, einfach eine Exception auslösen.

Öh, die sind doch drin

Delphi-Quellcode:

MyFileName := '$(app)\..\Pfad\Datei.txt';
MyDirName := MyFileName;
ShowMessage( MyDirName.Raw ); // -> $(app)\..\Pfad
MyFileName := 'Datei.txt';
MyFileName := MyDirName;
ShowMessage( MyFileName.Raw ); // -> $(app)\..\Pfad\Datei.txt

Allerdings nur bei der Record-Definition _DirName, was auch ausreicht

[schlecki]

Hallo,

wo gibt es denn die insSpecialFolders.pas?

[s.h.a.r.k]

Schau mal ans Ende des ersten Beitrags. Dort gibt es ein Link für den Download.

Oha, ich ziehe meine Antwort zurück. Hatte gedacht, dass die Datei im angehängten ZIP-File zu finden ist.

ABER: es gibt die Datei hier im Forum, und zwar genau hier

[schlecki]

Zitat von s.h.a.r.k:

ABER: es gibt die Datei hier im Forum, und zwar genau hier

danke für den Link, hätte ich auch selbst finden können

Zitat von Jens01:

Ich glaub, die insSpecialFolders.pas braucht man gar nicht! Einfach aus den uses löschen.

das sieht tatsächlich so aus, aber man kann da vielleicht auch noch was draus gebrauchen

[mytbo]

Hallo!

Vielen Dank für die Units.

In der Version zum Herunterladen sind aber noch Fehler.

Unit insFileName

Es funktioniert nur, wenn USE_SPECIALFOLDERS definiert ist.
In der Funktion class operator _FileName.implicit fehlt ein
{$ELSE}tmp := a.Raw;

Den Funktion _MagicPart.DecIdx und _MagicPart.IncIdx fehlt der
Rückgabewert Result := FIdx.

Bis bald...
Thomas

[shmia]

Also irgendwie hast du teilweise das FileSystem-Objekt von VBScript nachprogrammiert.

Man könnte auch direkt die Microsoft Scripting Runtime als Typbibliothek importieren und benützen.
Das wäre mal ein interessanter Job herauszufinden in wie weit man diese ActiveX-DLL direkt in Delphi gebrauchen kann.
Vielleicht noch einige Hilfsfunktionen zu bequemeren Erzeugung der Objekte sowie eine Demo-Anwendung hinzu...

[Jens01]

Ich glaub, die insSpecialFolders.pas braucht man gar nicht! Einfach aus den uses löschen.