заглючил function Posex

[bulldog5293]

function Posex(ss: String): String;
var
  B, E: Integer;
  TmpStr: String;
begin
  TmpStr := AnsiLowerCase(ss);
  B := Pos('src="http://', TmpStr) + 5;
  E := PosEx('"', ss, B);
  Result := Copy(ss, B, E - B);
end;

хорошё работает если требуемая ссылка одна на сайте, а как быть если их несколько и все одинаковы? Прост при таких условиях функция не работает

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

выкини свою функцию, и используй сам PosEx в цикле.

ЗЫ: и не надо обзывать функции одинакого.

[bulldog5293]

Подскажите как правельней, пробывал переделать так

for b2:=0 to 1 do
  if Pos(Otvet, 'url=') > 0 then begin
   Bg := Pos(''src="http://', Otvet) + 5;
  Eg := PosEx(''', Otvet, Bg);
    Ur := Copy(Otvet, Bg, Eg - Bg);

ток не вышла

[evg_m]

просто пример использования

b:=1;
s:='пропустим ++первый ++++двойной второй ++последний';
while b>0 do
begin
b:=posEx('++',s, b);
if b>0 then begin
showmessage(copy(s,b, 20));
b:=b+2;
end;
end;