Архив исходников программ, модулей и компонентов на Delphi


Начальная страница

Поиск по базе



Операционная система
Настройка приложения
Взаимодействия приложений
Файлы и директории
Строки и символы
Математика
Базы данных
Интернет и сеть
Мультимедиа
Аппаратная часть
VCL
Другие разделы [0]
 

Количество записей в базе - 537
Сегодня добавлено – 0

Имена, пути файлов



Вернуться к списку функций
 Получение имени файла из пути без или с его расширением.

 Прислал: VID (Махачкала) ( 18 апреля 2002 г. )
©  VID
 Зависимости:
нет

 Исходный текст:
{ **** UBPFD *********** by http://kladovka.net.ru/delphibase/ ****
>> Получение имени файла из пути без или с его расширением.

Зависимости: нет
Автор:       VID, snap@iwt.ru, ICQ:132234868, Махачкала
Copyright:   VID
Дата:        18 апреля 2002 г.
***************************************************************** }

function ExtractFileNameEx(FileName:String; ShowExtension:Boolean):String;
//Функция возвращает имя файла, без или с его расширением.

//ВХОДНЫЕ ПАРАМЕТРЫ
//FileName - имя файла, которое надо обработать
//ShowExtension - если TRUE, то функция возвратит короткое имя файла
// (без полного пути доступа к нему), с расширением этого файла, иначе,
возвратит
// короткое имя файла, без расширения этого файла.
VAR I:Integer;
    S,S1:String;
BEGIN
  //Определяем длину полного имени файла
  I:=Length(FileName);
  //Если длина FileName <> 0, то
  IF I<>0 THEN
  BEGIN
    //С конца имени параметра FileName ищем символ "\"
    WHILE (FileName[i]<>'\') AND (i>0) DO i:=i-1;
    // Копируем в переменную S параметр FileName начиная после последнего
    // "\", таким образом переменная S содержит имя файла с расширением, но без
    // полного пути доступа к нему
    S:=Copy(FileName , i+1 , Length(FileName)-i);
    i:=Length(S);
    //Если полученная S = '' то фукция возвращает ''
    IF i=0 THEN BEGIN Result:=''; Exit; END;
    //Иначе, получаем имя файла без расширения
    WHILE (S[i]<>'.') AND (i>0) DO i:=i-1;
    //... и сохраням это имя файла в переменную s1
    S1:=Copy(S, 1, i-1);
    //если s1='' то , возвращаем s1=s
    IF s1='' THEN s1:=s;
    //Если было передано указание функции возвращать имя файла с его
    // расширением, то Result = s,
    //если без расширения, то Result = s1
    IF ShowExtension=TRUE THEN Result:=s ELSE Result := s1;
  END
  //Иначе функция возвращает ''
  ELSE Result :='';
END;


Вернуться к списку функций

Наверх ▲