Получить имя файла без разришения - 10 Января 2013 - Сайт заготовки для Дельфи&Pascal

Главная » 2013 » Январь » 10 » Получить имя файла без разришения

09:41

Получить имя файла без разришения

Получить имя файла без разришения

function ExtractOnlyFileName(const FileName: string): string;
begin
result:=StringReplace(ExtractFileName(FileName),ExtractFileExt(FileName),'',[]);
end;

дополнительно с сайта
http://www.delphibasics.ru/ExtractFileName.php

var
  fullFileName : string;

begin
  // Установка полного имени файла с диском и путем
  fullFileName := 'C:\Program Files\Borland\Delphi7\Projects\Unit1.dcu';

  // Показ составляющих частей этого полного имени
  ShowMessage('Диск       = '+ExtractFileDrive (fullFileName));
  ShowMessage('Каталог    = '+ExtractFileDir   (fullFileName));
  ShowMessage('Путь       = '+ExtractFilePath  (fullFileName));
  ShowMessage('Имя        = '+ExtractFileName  (fullFileName));
  ShowMessage('Расширение = '+ExtractFileExt   (fullFileName));
end;

Диск = C:
Каталог = C:\Program Files\Borland\Delphi7\Projects
Путь = C:\Program Files\Borland\Delphi7\Projects\
Имя = Unit1.dcu
Расширение = .dcu

Просмотров: 1274 | Добавил: NetSoftWare | Рейтинг: 0.0/0

Всего комментариев: 0

Delphi заготовки

Меню сайта

Поиск по сайту

Контакты

Наш опрос

Добавить

Календарь

Полезные ссылки

Теги

Статистика

Архив записей

Число on-line

Поддержка сайта