Облака / Clouds
    Go to Copy.com
    Copy.com
    The bast cloud service
    Get 20 GB free!!!
    Support WebDav.
    Show more >>

    Go to Dropbox.com
    Dropbox.com
    time-tested cloud storage
    Support WebDav.
Все бесплатно
    Все ссылки на файлы, расположенные на страницах сайта, добавлены пользователями и доступны для бесплатного скачивания. За содержание этих файлов администрация сайта ответственности не несет.



Вопросы
  Перекодировка текста DOS-Windows-Koi8
   Категория: Текст и строки
  Undo в memo
   Категория: Компоненты
  Число четное или нечетное
   Категория: Математика
  Создать таблицу ABS (AbsoluteDB)
   Категория: Базы данных
  Подсчет времени какого-либо события
   Категория: Математика
  Как получить код HTM страницы зная ее URL
   Категория: Интернет и Сети
  Находится ли мышь над формой
   Категория: Компоненты
  Прочитать содержимое папки
   Категория: Файловая система
  Получить имена всех папок и файлов в директории
   Категория: Файловая система
  Упаковать TinyDB
   Категория: Базы данных

Delphi - Справочник: ExtractFileName

ABCDEFGHIJKLMNOPQRSTUVWXYZ

  << Вернуться  

 ExtractFileName
function ExtractFileName ( const FullFileName : string ) : string;
Функция (Unit SysUtils)
Извлекает из полного имени файла краткое имя файла
Описание:
Функция ExtractFileName извлекает из полного имени файла краткое имя файла.

Т.е. программа получает имя файла без его полного адреса.
Пример кода: Извлечение всех частей полного имени файла

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

  << Вернуться