Компонент OpenDialog компонент Delphi, позволяет получить пользователю доступ к файлу и считать из него данные через стандартное окно:
Котовое вызывается командой: OpenDialog1.Execute;
Свойство компонента FileName: String содержит, при успешном выборе, путь и название выбранного файла.
Свойство Filter: String используют для фильрации, отбора файлов в диалоговом окне. Код представленный ниже, позволит вам отфильтровать и показать Текстовые файлы с разрешением TXT или Excel 2007 с разрешением XLSX:
OpenDialog1.Filter:=’Текстовые файл|*.txt|’+’Excel 2007|*.xlsx|’;
Узнать какой именно фильтр выбрал пользователь, можно с помощью свойства FilterIndex: Integer :
OpenDialog1.FilterIndex;
if OpenDialog1.Execute and FileExists (OpenDialog1.FileName) then
ShowMessage(Form2.OpenDialog1.FilterIndex.ToString);
Установить начальный каталог позволяет свойство InitialDir: String, например
OpenDialog1.InitialDir:=’C:\program files\’;
