SaveDlg()
SaveDlg() – Dateiauswahlfenster zum Speichern
Die Funktion öffnet den Standarddialog zur Dateiauswahl.
Parameter | Beschreibung |
---|---|
aTitle:C | Titel des Dialogfensters; default = 'Speichern unter' |
aFilter:C | Filterausdruck; default = Leerstring |
aInitialDir:C | Anfangsverzeichnis; |
aFileName:C | Vorgabe für Pfad + Dateiname; default = Leerstring |
Rückgabewert
Objekt - Gespeicherte Datei
Beispiel
CODE
| aDlg |
aDlg := SaveDlg('BE-Dateiauswahl', 'BE-Programme|*.DWP|Alle Dateien|*.*',
MBEDEFAULT, 'File.txt'),
startseq,
aDlg.Active := true,
if aDlg.DoSave then
WriteLn(aDlg.FileName)
else
WriteLn('Keine Auswahl getroffen ...')
endif,
always,
DestroyObject(aDlg),
stopseq,