Функция GetFileName

Назначение

Функция выводит диалоговое окно с заголовком title для выбора файла и возвращает имя файла, выбранного пользователем.

Описание

function GetFileName (mask : string; title : string) : string;

Параметры

mask - "маска" искомого файла, например '*Vip'.

title - заголовок диалогового окна.

Если в параметре mask указать одну или несколько масок файлов через точку с запятой:

name = GetFileName ('*.vip;*.vih;*.vpp', 'Заголовок');

то в поле выбора типа файла в выпадающий список добавятся автоматически сгенерированные варианты с текстом:

• Файлы (*.vip;*.vih;*.vpp)

• .vip-файлы(*.vip)

• .vih-файлы(*.vih)

• .vpp-файлы(*.vpp)

• Все файлы (*.*)

Если в параметре mask указать набор масок файлов в формате:

• разделитель (символ #0);

• название первого набора расширений;

• разделитель (символ #0);

• список масок для первого набора через точку с запятой;

• разделитель (символ #0);

• название второго набора расширений;

• разделитель (символ #0);

• список масок для второго набора через точку с запятой;

• и т.д.

то в поле выбора типа файла в выпадающий список добавятся только перечисленные названия и "Все файлы (*.*)".

Возвращаемое значение

Функция возвращает строку с именем файла, выбранного пользователем, или пустую строку, если пользователь отказался от выбора.

Пример

name = GetFileName (
	 ''#0'Исходники Atlantis'#0'*.vip;*.vih;*.vpp'#0'Документы MS Office'#0'*.doc;*,xls',
	 'Заголовок');

В поле выбора типа файла выпадающий список будет содержать варианты:

• Исходники Атлантис

• Документы MS Office

• Все файлы (*.*)

Для каждого элемента списка будут отображаться файлы только соответствующих ему типов.