Frage zu SaveDialog

[ByTheTime]

Hallo, ich habe ein Frage.
Meine Anwendung öffnet per Klick auf den Button "Durchsuchen" den Explorer via OpenDialog (Filter: ".xls"). Da das Programm mit einer Excel Tabelle arbeitet, sucht man sich hier den Pfad, in dem Das Programm liegt. Dannach wird der Pfad (mit "Edit1.TExt := OpenDialog.FileName") in das Edit1-Feld kopiert. Beim klicken auf einen Button wird dann die Excel Datei geöffnet (durch "Excel.Workbooks.Open ('Edit1.Text')"). Danach werden Werte aus diversen anderen Edit-Feldern in verschiedene Excel-Zellen kopiert. Anschließend soll das ganze unter einem Pfad gespeichert werden, den man via SaveDialog eingibt. Der wird anschließend in ein Edit2-Feld kopiert. Dann COLOR="Red"]SOLL[/COLOR] via "Excel.ActiveWorkbook.SaveAs (Edit2.Text)" Das Dokument gespeichert werden. Eigentlich alles kein Problem. Allerdings soll das Programm den Namen für das Excel Dokument festlegen, der Benutzer soll via SaveDialog nur den Pfad angeben. Im Edit2-Feld steht nähmlich nun der Pfad: "D:\Benutzer\Ich\MeineExcelDatei.xls\". Allerdings soll dort stehen ""D:\Benutzer\Ich\", sodass das Programm via "Excel.ActiveWorkbook.SaveAs (Edit2.Text + 'MeineUMBENNANTEExcelDatei.xls')".

Ich hoffe ich habe mich annährend verständlich ausgedrückt.

Danke für eure Hilfe,

Lukas

[Ralf Kaiser]

Siehe hier ExtractFilePath

[ByTheTime]

Leider hilft mir das nicht direkt weiter :( Der TSaveDialog verlangt ja, das eine Datei ausgwählt wird. Ich möchte aber nur einen Pfad auswählen.

[Hobby-Programmierer]

Vielleicht

Delphi-Quellcode:

ExtractFilePath(Edit2.Text);

?

[Matze]

http://www.delphipraxis.net/21136-di...zuwaehlen.html

[ByTheTime]

Danke :) War wohl doch etwas unkreativ...

[Hobby-Programmierer]

Oh, hatte ich wohl falsch interpretiert.
Falls du die Jedis installiert hast geht das auch einfacher.

Delphi-Quellcode:

...
Uses ..., JvBaseDlg, JvSelectDirectory;
...

var sDir: TJvSelectDirectory;
begin
  sDir:= TJvSelectDirectory.Create(self);
  try
    if sDir.Execute then
      Edit2.Text:= IncludeTrailingPathDelimiter(sDir.Directory);
   finally
    sDir.Free;
  end;
end;

LG Mario

[Matze]

Zitat:

Zitat von Hobby-Programmierer (Beitrag 1129222)

Falls du die Jedis installiert hast geht das auch einfacher.

Vom Code ist das andere nicht komplizierter. ;)
Aber ich kenne die Unterschiede der Dialoge nicht. Der Jedi-Dialog könnte mehr Optionen bieten.

Delphi-Quellcode:

uses FileCtrl; 

// ...
var Pfad: string; 
begin 
  SelectDirectory('Ordner auswählen', '' ,Pfad); 
end;

[Hobby-Programmierer]

Ich glaube beides ist annehmbar gleich schwer. Wenn ich die Wahl habe greife ich lieber auf vorgefertigte Komponenten zu. Ist natürlich Ansichtssache und soll deinen Vorschlag aber keinesfalls schmälern ...

Schönes WE, LG Mario

[ByTheTime]

Danke für eure Antworten, ihr konntet mir weiterhelfen :)