Добрый день. Есть код

Код:

begin
    s:=Copy(HtmlCode,j,k-j);
    if (AnsiPos('http:',s)>0) or (AnsiPos('https:',s)>0) then
    if (AnsiPos('.doc',s)=0) and (AnsiPos('.pdf',s)=0) (*тут еще надо 
       много затычек на десятки типов файлов*)
    then
    T4.Add(s);
    i:=k;
    break;
end;

Код пропускает только строки содержащие http: и https: и не пропускает строки содержащие ссылку на закачку файла doc или pdf. но типов файлов может быть несколько десятков, не хотелось бы код типа (AnsiPos('.doc',s)=0) повторять десятки раз. кроме того желательно вынести наименования типов файлов в отдельный файл (типа INI?), что бы изменять список запретов оперативно и без перекомпиляции программы целиком

Вопрос: какими способами это можно сделать, если есть похожий функционально код опубликуйте, если не трудно, в теме.

[Rat]

Массивом, циклом и or.

А еще лучше регулярными выражениями. Но это по желанию.

[NumLock]

имхо, правильнее протокол проверять через AnsiStartsText.
класс TIniFile, метод:

Код:

procedure ReadSection(const Section: string; Strings: TStrings); override;

загрузить во временный TStringList и в цикле по Strings[] через AnsiEndsText проверять расширение.

Код:

uses
  StrUtils, IniFiles,

[M.A.D.M.A.N.]

См. последнюю ссылку в подписи.

[Rat]

Если это блокиратор скачивания файлов, то он не правильно построен. Ибо расширение по показатель. Куча сайтов предлагают тебе скачать то же самое, но с расширением txt например, или jpg. Потом переименовываешь и все. Нужно по содержимому блокировать.

[~TB~]

Сообщение от Rat

Если это блокиратор скачивания файлов, то он не правильно построен. Ибо расширение по показатель. Куча сайтов предлагают тебе скачать то же самое, но с расширением txt например, или jpg. Потом переименовываешь и все. Нужно по содержимому блокировать.

А как тогда блокировать, когда файл еще не скачан и нет возможности прочитать заголовок? Когда пользователь только начинает закачку?

онлайн справка по дельфи?

Понятно же, что он имел ввиду регулярки идущие последней строчкой.

[Rat]

Весь вопрос, вообще как Вы видете работу пользователя с Вашей программой. Насколько я понимаю, это что то типа прокси?

[ALexandr555]

Сообщение от M.A.D.M.A.N.

См. последнюю ссылку в подписи.

онлайн справка по дельфи?