Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Opendialog Ordner (https://www.delphipraxis.net/12503-opendialog-ordner.html)

Ping Pong 28. Nov 2003 17:21


Opendialog Ordner
 
Hi.

Hab folgendes Problem:
Habe einen Opendialog mit Multiselect.
Wollte jetzt eigentlich den Ordner und die Dateinamen in zwei verschiedene Variabeln schreiben.
Nur weiss ich nicht wirklich wie. Habe bis jetzt immer mit opendialog1.files.string gearbeitet, dass gibt aber immer Ordner und Dateinamen in einem String an. Da ich Multiselect anhabe, weiss ich auch nicht, wie dass mit opendialog1.filename gehen sollte.
Hat irgendjemand nen Tipp??

Cu Ping Pong

MathiasSimmack 28. Nov 2003 17:33

Re: Opendialog Ordner
 
Der OpenDialog hat noch eine Stringliste namens Files.

Ping Pong 28. Nov 2003 18:49

Re: Opendialog Ordner
 
Schon, aber wie kann ich nun Dateinamen und Ordnernamen trennen?

MrSpock 28. Nov 2003 21:47

Re: Opendialog Ordner
 
Hallo PingPong,

zunächst einmal herzlich willkommen im Delphi-PRAXIS Forum.

Für die Zerlegung gibt es die Funktionen ExtractFilePath und ExtractFileName. Die Benutzung erklärt die OH von Delphi.

DSign 28. Nov 2003 22:54

Re: Opendialog Ordner
 
Hallo Ping Pong!
Probiere den folgenden Code mal aus:
Delphi-Quellcode:
var
 I: Integer;
 Dateiname, Ordner: String;
begin
 if OpenDialog1.Execute then
  begin
   for I:=0 to OpenDialog1.Files.Count-1 do
    begin
     Dateiname := ExtractFileName(OpenDialog1.Files.Strings[I]);
     Ordner := ExtractFilePath(OpenDialog1.Files.Strings[I]);
    end;
   end;
end;
Ich hoffe, dass es dir ein wenig hilft!

Ping Pong 29. Nov 2003 07:44

Re: Opendialog Ordner
 
Danke für den Tipp.
Funktioniert einwandferi.

Cu Ping Pong

r_kerber 29. Nov 2003 08:49

Re: Opendialog Ordner
 
Hallo Ping Pong,

da Open Dialog nichts mit Datenbanken zu tun hat, habe ich den Thread nach VCL-Komponenten und Controls verschoben.


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:05 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz