PosOffset

[impulsgraw]

Здравствуйте!
Вот ломаю голову над написанием функции, которая будет искать вхождение подстроки в строку при учёте номера вхождения (например: подстрока 'a1'; строка 'a1a1a1a1a1'; надо найти позицию третьего вхождения подстроки в строку, тоесть 'a1a1a1a1a1').
Никак не получается написать функцию.

[Человек_Борща]

Нет, студенты по любому что-то курят...

А что Pos и PosEx(из StrUtils) уже отменили?

[Serge_Bliznykov]

используйте PosEx

[Аватар]

function PosOffSet(const SubStr, S: string; Offset: Integer): Integer;
var i,j,k: Integer;
begin
  Result:=0;
  if Offset<1 then Exit;
  j:=1;
  for i:=1 to Offset do begin
    k:=PosEx(SubStr,S,j);
    if k=0 then Exit;
    j:=k+1;
  end;
  Result:=k;
end;

[impulsgraw]

Serge_Bliznykov, спасибо.
Человек_Борща, 1)Я не студент. 2)Я не знал про PosEx(). 3)Иди и кури, тебя никто не держит...

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

2)а где StrEx?

[Аватар]

Сообщение от Пепел Феникса

2)а где StrEx?

А где такая есть? Чет в Д7 не нашел. Или плохо искал?