SaveDlg (Pascal-Script) #

Beschreibung #

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

Syntax #

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

Argumente #

SaveDlg erzeugt einen Dialog zur Auswahl eines Dateinamens zum Speichern. 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 SaveDlg(Title,InitialDir,Options,Filter,FileName) then
    ShowMessage('Dateiname= '+FileName)
  else ShowMessage('Es wurde nichts ausgewählt!');
end;