Пример открытия файла с помощью компоненты OpenDialog
На рис.12. представлен проект формы, для демонстрации выполнения операции открытия файла с помощью OpenDialog.
Рис.12. Проект формы
Элемент управления Edit1 предназначен для отображения имени выбранного файла, кнопка Открыть файл обеспечит выполнение операции открытия файла посредством элемента управления OpenDialog, который является не визуальным элементом, но в проекте формы представлен пиктограммой. Обработчик кнопки Открыть файл procedure TForm1.Button1Click(Sender: TObject); begin with OpenDialog1 do begin if not Execute then Exit; //размещение диалогового окна //если окно открылось можно использовать переменную FileName //в которую система поместила имя выбранного файла Edit1.text:=FileName; end end; При выполнении операции Открыть файл откроется диалоговое окно, вид которого представлен на рис.13, выбора файла.После выбора файла и щелчка по кнопке Open, окна выбора файла, имя файла запишется в переменную OpenDialog1.filename и согласно алгоритма обработчика кнопки Открыть файл оно отобразится в элементе формы Edit1.
Рис.13. Окно выбора файла
На рис.14. отображена форма после выполнения операции.
Рис.14. Отображение в форме имени открытого файла
|