Was bewirken Dialoge?

[Daniel B]

Hallo,

um das ganze etwas zu präzisieren.
@Chris
In OpenDialog.FileName, steht nicht einfach nur der Dateiname dirn, sondern der komplette Pfad mit dazu.


Der Open- oder auch SaveDialog, sind einfach gesagt, nur einfach hilfsmittel, an den Pfad einer Datei zu gelangen.

Delphi-Quellcode:

if OpenDialog.Execute then
begin
end;

In den if-Teil, kommt man nur rein, wenn im Dialog der Button OK angeklickt wurde!
Und hier noch ein kleines Beispiel, was man noch so an Daten rausbekommen könnte, anhand des Dialogs.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
  begin
    ShowMessage('Die Datei ' + ExtractFileName(OpenDialog1.FileName) + ' wurde ausgewählt.' + #13#10 +
                'Die Datei liegt im Ordner ' + ExtractFileDir(OpenDialog1.FileName) + #13#10 +
                'Der Pfad zur Datei lautet: ' + ExtractFilePath(OpenDialog1.FileName) + #13#10 +
                'Die Datei liegt auf folgendem Laufwerk: ' + ExtractFileDrive(OpenDialog1.FileName) + #13#10 +
                'Die Datei hat folgende Endung: ' + ExtractFileExt(OpenDialog1.FileName) + #13#10);
  end;
end;

Grüsse, Daniel