if or then не работает

[bulldog5293]

Посматрел пример узнать ссылка в едите или нет

procedure TForm1.Button1Click(Sender: TObject);
begin
 if (Pos('http://', Trim(cbUrl.Text))=1)
  or (Pos('https://', Trim(cbUrl.Text))=1)
  or (Pos('ftp://', Trim(cbUrl.Text))=1)
  or (Pos('www.', Trim(cbUrl.Text))=1)
 then  Showmessage('Это ссылка')
 else
  begin
   Showmessage('Не ето не ссылка! :)');
   Exit;
  end;
end;

И решил таким же способом аргонизовать поиск на странице

If (Pos('значение1', a)=1)
or (Pos('значение2', a)=1)
or (Pos('значение3', a) =1) then

но он нечего не находит

[Пепел Феникса]

Pos('http://', Trim(cbUrl.Text))=1
и догадайтеь почему не работает на странице.
в ссылке то протокол обязан быть в начале самом(что и проверяется)

ЗЫ: не очень хорошая проверка на предмет, ссылка ли.

[bulldog5293]

ну мне не именно ссылку нада отыскать, я один из трёх текстов ищу на странице, а кроми этого, в голову не чего не приходит
Понял, нада была

If (Pos('значение1', (a))>0)

or (Pos('значение2', (a))>0)

[Serge_Bliznykov]

bulldog5293, Вам Пепел Феникса намекает на то, что Вам надо посмотреть на описание функции Pos()...
когда она не находит подстроку в строке, возвращает ноль,
а когда находит - что возвращает? ....... (заполните пропуск и поймёте, почему ваше =1 - не катит!

[CepbIu]

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

ну мне не именно ссылку нада отыскать, я один из трёх текстов ищу на странице, а кроме этого, в голову ни чего не приходит

регуляр(регулярное выражение) использовать?

[bulldog5293]

регуляру не верю, придпочитаю вручную делать

[Пепел Феникса]

советую тогда предусмотреть в странице относительные ссылке и так же возможность различия регистров.

[CepbIu]

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

регуляру не верю, придпочитаю вручную делать

вот оно как... а почему? а компилятору верите? вдруг это он не правильно код собирает?