Функция Pos возвращает индекс первого вхождения фрагмента
Substr в строке S или ноль, если Substr
нигде в S не встречается.
function Pos(Substr: string; S: string): Integer;
где:
Substr – фрагмент строки;
S – исходная строка;
Например,
Pos('во', 'руководство') выведет
'5';
Pos('ток', 'информатика') выведет
'0' (нет такого фрагмента).
Чтобы найти индекс не только первого вхождения фрагмента, потребуется своя функция
PosN , которая осуществляет поиск с позиции index .
function PosN(index: integer; substr, s: string): integer;
begin
if index<1 then
index:=1;
s:=Copy(s, index, Length(s));
Result:=Pos(substr, s);
if Result>0 then
Result:=index+Result-1;
end;
где:
index – начальный индекс;
substr – фрагмент строки;
s – исходная строка.
Например,
PosN(3, 'ба', 'барабан') выведет
'5' (первый слог не учитывается, поиск
осуществляется во фрагменте 'рабан');
PosN(5, 'грамм', 'программа') выведет
'0' (во фрагменте
'рамма' нет
'грамм').
|