Execute: Boolean;
Метод Execute осуществляет инициализацию диалога и возвращает результат выбора пользователя.
Метод возвращает значение True если была нажата кнопка Открыть/Сохранить, иначе - False. Если была нажата кнопка Открыть/Сохранить, то путь и наименование выбранного файла будут доступны в свойстве FileName и коллекции FileNames. Если для компонента FileOpenDialog включен режим множественного выбора файлов, то в свойстве FileNames будет содержаться информация обо всех выбранных файлах, а в свойстве FileName информация только о первом файле. Файлы в коллекции FileNames будут расположены в том порядке, в каком они отсортированы в диалоге.
Для выполнения примера предполагается наличие формы, расположенных на ней двух кнопок с наименованиями «B_OPEN» и «B_SAVE» и компонентов FileOpenDialog и FileSaveDialog с наименованиями «FileOpenDialog1» и «FileSaveDialog1» соответственно.
Class TESTForm: Form
Button1: Button;
Button2: Button;
FileOpenDialog1: FileOpenDialog;
FileSaveDialog1: FileSaveDialog;
Sub B_OPENOnClick(Sender: Object; Args: IMouseEventArgs);
Var
FileName: String;
Begin
FileOpenDialog1.MultiSelect := True;
If FileOpenDialog1.Execute Then
For Each FileName In FileOpenDialog1.FileNames Do
Debug.WriteLine(FileName);
End For;
End If;
End Sub B_OPENOnClick;
Sub B_SAVEOnClick(Sender: Object; Args: IMouseEventArgs);
Begin
If FileSaveDialog1.Execute Then
Debug.WriteLine(FileSaveDialog1.FileName);
End If;
End Sub B_SAVEOnClick;
End Class TESTForm;
При нажатии на кнопку «B_OPEN» будет инициализирован диалог открытия файлов, при нажатии кнопки «B_SAVE» - диалог сохранения в файл. При выборе файлов и нажатии в диалогах кнопок «Открыть/Сохранить» информация о файлах будет выведена в консоль среды разработки.
См. также: