Pfad einlesen

[1PM]

Hallo!

Folgendes Problem: Ich möchte über ein TOpenDialog oder TSaveDialog lediglich den Pfad des Ordners auslesen, damit ich mit dem Pfad im Quelltext arbeiten kann! Hat jemand eine Idee?

Danke im vorraus!

Gruß 1PM

[Christian Seehase]

Moin 1PM,

da fallen mir spontan drei Möglichkeiten ein.
Entweder Du suchst hier mal nach SHBrowseForFolder, Du verwendest die Delphi Funktion SelectDirectory, oder Du gibst schon beim Öffnen des TOpen/TSaveDialogs einen Filename als Dummy mit, den Du dann, anschliessend abschneidest.

[MrKnogge]

Probier mal:
temp := extractFilePath(OpenDialog1.Filename); müsste eigentlich gehen

[1PM]

@Christian Seehase: Das mit dem Dummy klingt ganz gut! Gibt es ein Tut. dazu?

@MrKnogge: Quelltext wohin?



Vielen Dank!

Gruß 1PM

[Christian Seehase]

Moin 1PM,

Zitat von 1PM:

Gibt es ein Tut. dazu?

Reicht das so:

Delphi-Quellcode:

var
  sPath : string;

begin
  OpenDialog1.Filename := 'c:\irgendein Pfad\Dummy.datei';
  if not OpenDialog1.Execute then exit;
  sPath := ExtractFilepath(OpenDialog1.Filename);
end;

Die Option FileMustExist muss dabei natürlich ausgeschaltet sein.

Ich frag' mich allerdings, was Du damit vorhast, denn es ist, genaugenommen, eine unschöne "Bastellösung".

[1PM]

Ich schreibe ein Installationsprogramm, bei dem ich den Pfad auslesen muss um ihn dann in ein EditFeld zu setzen! Hast du eine bessere Lösung?

Gruß 1PM

[Luckie]

Hat er doch schon gesagt: SelectDirectory oder SHBrowseForFolder.

[1PM]

Hab das mit dem SelectDirectory gemacht, fkt. super!

Thanx

Gruß 1PM