VPF::Помогите реализовать функцию OneOfItems

Дата 24.7.2003, 21:31 (ссылка)

(нет голосов)

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 14
Всего: 115

Помогите реализовать функцию OneOfItems(str1,str2:string):boolean;

var
s1,s2:string
begin
s1:='*.exe';
s2:='*.txt,*.exe,*.bmp,*.shtml';

if OneOfItems(s1,s2) then ...

Тоесть функция OneOfItems определяет есть ли среди строк s2
разделённых запятой хоть одна строка равная строке s1.

p0s0l

Дата 24.7.2003, 22:17 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 58
Всего: 112

а чо так нельзя?:

Код


function OneOfItems.... : boolean;
begin
  Result := Pos(str1,str2) <> 0;
end;

или на всякий случай так:

Код


function OneOfItems.... : boolean;
begin
  Result := Pos(','+str1+',' , ','+str2+',') <> 0;
end;

Второй вариант - чтобы не спутать например *.htm и *.html.

или я суть не правильно понял ?

Это сообщение отредактировал(а) p0s0l - 24.7.2003, 23:49

--------------------

С уважением, г-н Посол.

December

Дата 24.7.2003, 23:31 (ссылка)

(нет голосов)

Загрузка ...

Antitheorist

Профиль
Группа: Участник
Сообщений: 4423
Регистрация: 14.8.2002
Где: Харьков

Репутация: 8
Всего: 57

Или TStrings тебе поможет. IndexOf(str1)
Предварительно загрузив через CommaText:=str2

--------------------

Для друзей с винграда - скидки на разработку сайтов

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »