Группы и рассылки:

Вы здесь

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='http://www.mail.ru';
begin
   ShowMessage('Домен ['+domenShort+'] находится в зоне ['+ExtractFileExt(domenShort)+']');
   ShowMessage('Полный адрес сайта ['+domenFull+'] находится в зоне ['+ExtractFileExt(domenFull)+']');
end;
Разместить свое видео на сайте
Вы можете разместить свои 
видео-уроки на сайте
БЕСПЛАТНО!


Подробнее>>>