Делфи. Ищу функцию типа Pos(s1,s2), но со стартом поиска не с 1 символа Опции

[GetSmart]

Существует ли такая?
Или как это можно делать малой кровью без искажения оригинала и создания новой субстроки поиска (через Copy например) ?

[AHTOXA]

StrPos:
Что-то типа такого:

Код

function CountTokens(BigString, SubStr : string) : integer;
Var
  Token : PChar;
begin
  result := 0;
  Token := PChar(BigString);
  Token := StrPos(Token, PChar(SubStr));
  while (Token <> nil) do
  begin
    inc(result);
    Inc(Token);
  end;
end;

[GetSmart]

StrPos:
Что-то типа такого:
...

А такая конструкция утечку памяти не создаст?

Код

Token := PChar(BigString);

это вроде создаёт почти копию строки в динамической памяти, а следующая команда затрёт (?) оригинальный адрес.

Кроме того, мне нужно работать в позициях оригинальной строки. То есть нужно эти адреса как-то преобразовывать в позиции.

Сообщение отредактировал GetSmart - Jan 23 2012, 16:40

[AHTOXA]

А такая конструкция утечку памяти не создаст?

Код

Token := PChar(BigString);

это вроде создаёт почти копию строки в динамической памяти, а следующая команда затрёт (?) оригинальный адрес.

Нет, это просто преобразование типов, никаких копий.

Кроме того, мне нужно работать в позициях оригинальной строки. То есть нужно эти адреса как-то преобразовывать в позиции.

Элементарно:

Код

  Token := PChar(BigString);
  Start = Token;   // Запомним начало
  Token := StrPos(Token, PChar(SubStr));
  IndexInString := Token - Start + 1;  // Вычислим индекс в строке