Функция ExtractFileExt – извлекает из имени файла его расширение определяющее тип файла. Функция входит в состав библиотеки SysUtils и имеет один входной параметр — текстовую строку.
Функция может принимать как полный путь к файлу, так и просто имя файла. Результатом работы функции является строка вида«.***…», где *-символы расширения.
Обратите внимание! Функция возвращает расширение вместе с точкой.
Синтаксис функции: ExtractFileExt(const FileName: string): string;
Пример использования функции ExtractFileExt:
procedure TForm1.Button1Click(Sender: TObject);
const filename=‘testfile.jpg’;
fullname=‘c:\music\testfile.mp3’;
begin
ShowMessage(‘Файл [‘+filename+‘] имеет расширение [‘+ExtractFileExt(filename)+‘]’);
ShowMessage(‘Полный путь файла [‘+fullname+‘] имеет расширение [‘+ExtractFileExt(fullname)+‘]’);
end;
Примечание: Хоть функция ExtractFileExt и предназначена для извлечения расширения из имени файла, она так же может использоваться для извлечения окончаний идущих после точки (в конце строки!). Например, определение доменной зоны (.RU, .РФ, .COM и т.д.).
Пример:
procedure TForm1.Button1Click(Sender: TObject);
const domenShort=‘mail.ru’;
domenFull=‘https://www.mail.ru’;
begin
ShowMessage(‘Домен [‘+domenShort+‘] находится в зоне [‘+ExtractFileExt(domenShort)+‘]’);
ShowMessage(‘Полный адрес сайта [‘+domenFull+‘] находится в зоне [‘+ExtractFileExt(domenFull)+‘]’);
end;