Menü

SaveDlg (Pascal-Script)

Zurück | Ebene zurück

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;

Regeln zum Nachvollziehen des Scripts finden Sie hier.