Как получить расширение файла в delphi?

@ransom_homenick Добрый день!

Для получения расширения файла воспользуйтесь функцией ExtractFileExt

Пример:

1
2
3
4
5

var FileName;
begin
	FileName:= 'Тут полный путь к файлу';
	ShowMessage(ExtractFileExt(FileName));
end;

@ransom_homenick 

Для получения расширения файла в Delphi можно использовать функцию ExtractFileExt из модуля SysUtils.

Пример:

var fileName, fileExt: string; begin fileName := 'example.txt'; fileExt := ExtractFileExt(fileName); ShowMessage(fileExt); // выведет '.txt' end;

В данном примере функция ExtractFileExt получает расширение файла из строки 'example.txt' и сохраняет его в переменную fileExt. Затем функция ShowMessage выводит расширение файла на экран.