Open-SaveTextFileDialog - beim Öffnen im selben Ordner

[himitsu]

Zitat von Ralf Kaiser:

EDIT: der rote Kasten hat mal wieder Urlaub???

Bei mir auch.

Nja, wenn diese Dialoge die selben Einstlelungen haben, dann stimmt das.

Wenn man im OI dort jeweils andere Optionen nutzt, dann kann man sich überlegen diese zur Laufzeit zu setzen, also kurz vorm Aufruf, aber dann kann man die ganze Komponente auch gleich dynamisch erstellen und den FormDesigner vergessen.
Oder man nutzt eben 2 Dialoge. (aber wie schon erwähnt ... mit gleichen Einstellungen reicht natürlich ein Dialog)



Aber so oder so, da er unterschiedliche Verzeichnisse haben möchte, muß er sich dennoch die Initial-Verzeichnisse speichern und setzen.

[Codix32]

Danke euch, himitsu und Ralf Kaiser,

manchmal ist es das ganz Einfache, was man übersieht:

Delphi-Quellcode:

procedure TForm1.Button6Click(Sender: TObject);
begin
SaveTextFileDialog1.InitialDir:=extractfilepath(OpenTextFileDialog1.FileName);
 if SaveTextFileDialog1.Execute then
...
...

Dasselbe nochmal für SaveTextFileDialog2 und schon habe ich, was ich wollte.

[himitsu]

Zitat:

InitialDir

Du meinst doch bestimmt ExtractFileDir und nicht ExtractFilePath?

TSaveDialog.InitialDir ExtractFileDir ExtractFilePath

[Codix32]

Zitat von himitsu:

Zitat:

InitialDir

Du meinst doch bestimmt ExtractFileDir und nicht ExtractFilePath?

TSaveDialog.InitialDir ExtractFileDir ExtractFilePath

Hm, ich habe tatsächlich extractfilepath verwendet und es funktioniert.

Macht es denn einen Unterschied, ob ich ExtractFilePath oder ExtractFileDir verwende?

[himitsu]

Es mag sein, daß es aktuell so geht,
aber diese Eigenschaft möchte nunmal ein "Dir" (die Adresse des Verzeichnisses, also ohne ein abschließendes \ ) haben.
Das ExtractFilePath liefert aber den "Path" (den Teil vor einer Datei\Verzeichnis, inkl. dem letzen Trenner \ ).

[Codix32]

Zitat von himitsu:

Es mag sein, daß es aktuell so geht,
aber diese Eigenschaft möchte nunmal ein "Dir" (die Adresse des Verzeichnisses, also ohne ein abschließendes \ ) haben.
Das ExtractFilePath liefert aber den "Path" (den Teil vor einer Datei\Verzeichnis, inkl. dem letzen Trenner \ ).

Ja, hab schon bemerkt.
Label7.Caption:= 'Liste 2 = '+ extractfiledir(OpenTextFileDialog2.FileName); Zeigt mir den Pfad ohne letzten Delimiter.

Danke