RSS

ExtractFileExt (функция)

Функция 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;