[bulldog]

к примеру есть массив

Код:

const
NT = 5;
var
team: array[1..NT] of string[10] =
('1 ссылка','2 ссылка','3 ссылка','4 ссылка','5 ссылка')

и простой парсинг ссылки

Код:

while Pos('...',str)>0 do begin
 Form2.ListView1.Items[0].SubItems.Append(Copy(str,Pos('...',str)+12,7));
Delete(str,1, Pos('...',str)+12);

Если заведомо не известно какая ссылка на сайте, но есть шаблон етих ссылок, как организовать парсинг по массиву этих ссылок на их наличие?

[Страдалецъ]

Видимо примерно так:

Код:

 for i := 1 to NT
 do for j := 0 to Form2.ListView1.Items[0].SubItems.Count
     do if Form2.ListView1.Items[0].SubItems.Strings[j] = team[i]
         then // Нашли ссылку по шаблону

или наоборот, как вам нравится:

Код:

 for j := 0 to Form2.ListView1.Items[0].SubItems.Count
 do for i := 1 to NT
     do if Form2.ListView1.Items[0].SubItems.Strings[j] = team[i]
         then // Нашли ссылку по шаблону

[Bars1992]

естли известен шаблон то можно использовать так называемые регулярные выражения. В нети статьи есть.

[bulldog]

в нете я искал, но там как то не то что мне нада, тем более без шаблонов, мог бы хотя бы простой пример показать как по шаблону делать

[Bars1992]

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

в нете я искал, но там как то не то что мне нада, тем более без шаблонов, мог бы хотя бы простой пример показать как по шаблону делать

Плохо ты искал) вот тут и описание и примеры http://forum.vingrad.ru/articles/topic-213075.html

[Bars1992]

Вот пример поиска всех ссылок на странице:

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
rege:tregexpr;
s:string;
begin
s:=idhttp1.Get(edit1.Text);
rege:=tregexpr.Create;
rege.Expression:='(http|ftp)://([\w.]+)/([\w\?\+=\-\.\\]+)';
if rege.Exec(s) then
 begin
 memo1.Lines.Clear;
 memo1.Lines.Add('На данной странице найдены следущие ссылки:');
 repeat
 memo1.Lines.Add(rege.Match[0]);
 until not rege.ExecNext;
 end
 else
 memo1.Lines.Add('На данной странице ссылок не обнаружено...');

rege.Free;
end; 


чтобы всё это заработало надо подключить модуль "regExpr" . Файл модулюя прилогается.