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


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

Поиск по базе



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

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

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



Вернуться к списку функций
 Определение соответствия имени файла указанной маске

 Прислал: VID (Махачкала) ( 26 апреля 2004 г. )
©  Собственное написание (VID)
 Описание:
Функция ищет Extension(напр. *.mp3) в списке расширений(напр. *.bmp;*.mp3;*.wma).
Если искомое расширение найдено в списке, то возвращается порядковый номер
найденного расширения, иначе 0.

 Зависимости:
 Ограничения:
Проверено в Delphi5, Win2k/XP

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

Функция ищет Extension(напр. *.mp3) в списке расширений(напр. *.bmp;*.mp3;*.wma).
Если искомое расширение найдено в списке, то возвращается порядковый номер
найденного расширения, иначе 0.

Зависимости: UBPFD.GetStrParam, Masks
Автор:       VID, ICQ:132234868, Махачкала
Copyright:   Собственное написание (VID)
Дата:        26 апреля 2004 г.
***************************************************************** }

Function FindInExtensions(const Extensions, FileName:String; const Delimiter:Char):Integer;
Var I:Integer;
    S:String;
begin
  Result := 0;
  I:=0;S:='--';
  While S<>'' do
  begin
    Inc(I);
    S:=GetParamFromString(Extensions, Delimiter, I);
    IF S<>'' then
    begin
      IF MatchesMask(FileName, S) then
      begin
        Result := I;
        Exit;
      end;
    end;
  end;
end;

 Пример использования:
if FindInExtensions('*.mp3;*.avi', 'multi.mp3', ';')>0 then
  ShowMessage('Файл соответствует!');


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

Наверх ▲