OpenDlg (Pascal-Script) #

Beschreibung #

Erzeugt einen Datei-Öffnen-Dialog und und übergibt den ausgewählten Dateinamen zurück.

Syntax #

function OpenDlg(Title, InitialDir, Options, Filter: String; var Filename: String):Boolean;

Argumente #

OpenDlg erzeugt einen Dialog zur Auswahl eines Dateinamens. Der Parameter „Title“ gibt die Fensterüberschrift an. Mit „InitialDir“ kann ein Ordner angegeben werden, ab dem der Dialog starten soll. Der Parameter „Options“ wird zur Zeit nicht ausgewertet und ist für Erweiterungen vorgesehen. Über „Filter“ kann eine Dateimaske angegeben werden. Der Name der Dateimaske kann von der Extension mit einem senkrechten Strich angegeben werden. Weitere Auswahlen werden ebenfalls über senkrechte Striche angegeben. Der Wert Filename ist das Ergebnis. Beim Initialisieren kann man einen Startwert vorgeben. Die Funktion gibt „true“ zurück, wenn ein Dateiname ausgewählt wurde und „false“ wenn der Dialog abgebrochen wurde.

Der Parameter Filter könnte folgenden Wert haben:

PNG Dateien (.png)|.png|Alle Dateien (.)|.

Beispiel #

var
  Title: String;
  InitialDir : String;
  Options : String;
  Filter : String;
  FileName : String;
begin
  Title:='Bilder öffnen';
  InitialDir:='C:\';
  Options:='';
  Filter:='PNG Dateien (*.png)|*.png|Alle Dateien (*.*)|*.*';
  FileName:='';
  if OpenDlg(Title,InitialDir,Options,Filter,FileName) then
    ShowMessage('Dateiname= '+FileName)
  else ShowMessage('Es wurde nichts ausgewählt!');
end;