Поиск с строке

[nusik]

Здравствуйте.
Необходимо реализовать быстрый поиск символа в строке.

function ReversePosEx(substr:char;str:string;index:integer):integer;
var i:integer;
begin
  i:=0;
  for  i := index downto 1 do
    begin
       if substr=str[i] then begin
          Result:=i;
          break;
       end;
    end;
  if i=0 then result :=0;
end;

Есть ли более выстрый алгоритм ?
итерации как вы поняли идют с права налево, ищется одиночный символ.

[The Best]

poz:=pos(substr,str);

Если poz равен 0, то символ не найден.

[nusik]

Сообщение от The Best

poz:=pos(substr,str);

Если poz равен 0, то символ не найден.

знаю)
мне нужен был обратный поиск, но посмотрел подумал ... лучше не будет

[Stilet]

Есть ли более выстрый алгоритм ?

На ассемблере пиши. Это быстре будет.