OpenDialog – визуальный компонент. Он используется, чтобы позволить пользователю выбирать один или более файлов, для открытия. Он может быть определен, перемещением значка Open Dialog с вкладки Dialogs, или определяя переменную TOpenDialog.
Основные свойства:
– Title – используется для установки заголовка диалога;
– FileName – выдает имя файла для открытия, заданное по умолчанию (иначе, поле имени файла будет пробелом). При возвращении из диалога, если пользователь нажал, OK, это свойство будет содержать (первое) выбранное имя файла, включая его полный путь;
– Filter – позволяет отображать и выбирать только некоторые типы файлов. Текст фильтра отображается в ниспадающем поле, чуть ниже поля имени файла.
Следующий пример выбирает только текстовые файлы:
openDialog.Filter := ‘Text files only|*.txt’;
Раскрывающийся список показывает текст, находящийся перед разделителем |. После разделителя можно определить маску, которая выбирает файлы:
openDialog.Filter := ‘Text and Word files only|*.txt;*.doc’;
– FilterIndex – определяет, какой фильтр ниспадающего поля будет отображен первым;
– InitialDir – устанавливает начальный каталог в диалоге;
– Options – это набор TOpenOptions флажков. Они являются исчерпывающими. Ключевые значения:
– ofReadOnly – открывает файл доступный только для чтения;
– ofFileMustExist – может быть открыт только существующий файл;
– ofAllowMultiSelect – пользователь может выбрать 2 или больше файлов.
Для отображения диалога вызывается метод TOpenDialog:
if openDialog.Execute then …
Execute возвратит истину, если пользователь выбрал файл и нажал OK. Теперь вы можете использовать выбранный файл:
ПРИМЕР: Вывод содержимого файла в компонент Memo1 через OpenDialog1
if OpenDialog1.Execute then
begin
AssignFile(f,OpenDialog1.FileName);
reset(f);
Memo2.Text:=»;
while not eof(f) do
begin
Read(f,buf);
Memo2.Text:=Memo2.Text+buf;
end;
closefile(f);
end;