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