Разное
Облака / Clouds
The bast cloud service
Get 20 GB free!!!
Support WebDav.
Show more >>
time-tested cloud storage
Support WebDav.
Последние книги
Самое популярное
Все бесплатно
Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.
Навигация
Вопросы
Преобразовать Римские символы в Арабские и наоборот
Категория: Текст и строки
Категория: Текст и строки
Как соединить несколько файлов в один
Категория: Файловая система
Категория: Файловая система
Компоненты ToolBar и PageScroller
Категория: Компоненты
Категория: Компоненты
Упаковка таблиц в BDE
Категория: Базы данных
Категория: Базы данных
Подсчет времени какого-либо события
Категория: Математика
Категория: Математика
Компонент MainMenu
Категория: Компоненты
Категория: Компоненты
Как подключить или отключить сетевой диск
Категория: Интернет и Сети
Категория: Интернет и Сети
Изменить структуру ABS (AbsoluteDB)
Категория: Базы данных
Категория: Базы данных
Сохранить документ Word как RTF на DELPHI
Категория: Файловая система
Категория: Файловая система
Прочитать содержимое папки
Категория: Файловая система
Категория: Файловая система
Delphi - Справочник: ExtractFileExt
ExtractFileExt
|
function ExtractFileExt ( const FullFileName : string ) : string; |
Функция (Unit SysUtils)
|
Извлекает из полного имени файла его расширение
|
Описание:
|
Функция ExtractFileExt извлекает из полного имени файла расширение файла. В строку будет передано '.' + расширение. |
Пример кода: Извлечение всех частей полного имени файла
|
var fullFileName : string; begin // Установка полного имени файла с диском и путем fullFileName := 'C:Program FilesBorlandDelphi7ProjectsUnit1.dcu'; // Показ составляющих частей этого полного имени ShowMessage('Диск = '+ExtractFileDrive (fullFileName)); ShowMessage('Каталог = '+ExtractFileDir (fullFileName)); ShowMessage('Путь = '+ExtractFilePath (fullFileName)); ShowMessage('Имя = '+ExtractFileName (fullFileName)); ShowMessage('Расширение = '+ExtractFileExt (fullFileName)); end;
Результат:
|
Диск = C: Каталог = C:Program FilesBorlandDelphi7Projects Путь = C:Program FilesBorlandDelphi7Projects Имя = Unit1.dcu Расширение = .dcu |