Алгоритм поиска подстроки методом боера-мура на Visual с++, с паскаля на visual с++ Опции

[invoke]

я только не давно начал изучать visual с++ и уменя не получилось перевести алгоритм.... а тут задание по практике дали на с++ хоть вешайся сдавать в четвег а у меня не чего не получаеться так что есле кто поможет первести буду очень багодарен ......
а вот сам алгоритм Реализуем указанный алгоритм на языке ObjectPascal. Прежде всего следует определить тип данных «таблица смещений». Для кодовой таблицы, состоящей из 256 символов, определение этого типа будет выглядеть так:

type TBMTable = array [0..255] of Integer;



Далее приводится процедура, вычисляющая таблицу смещений для образца P.

procedure MakeBMTable( var BMT : TBMTable; const P : String);
var i : Integer;
begin
for i := 0 to 255 do BMT[i] := Length(P);
for i := Length(P) downto 1 do
if BMT[Byte(P[i])] = Length(P) then
BMT[Byte(P[i])] := Length(P) – i;end;



Теперь напишем функцию, осуществляющую поиск.

function BMSearch( StartPos : Integer; const S, P : String; const BMT : TBMTable) : Integer;
var Pos, lp, i : Integer;
begin lp := Length(P);
Pos := StartPos + lp –1;
while Pos < Length(S) do
if P[lp] <> S[Pos] then Pos := Pos + BMT[S[Pos]]
else
for i := lp - 1 downto 1 do
if P[i] <> S[Pos – lp + i] then
begin
Inc(Pos);
Break;
end
else if i = 1 then
begin
Result := Pos – lp + 1;
Exit;
end;
Result := 0;
end;

заранее спасибо.....

[volvo]

char* StrInStr(LPTSTR Str,LPTSTR SubStr)
{
int i,LenStr,LenSub,BMT[256];
BYTE *pos;

 LenSub=strlen(SubStr);
 if(LenSub<1) return NULL;
 LenStr=strlen(Str);
 if(LenStr<1) return NULL;

// Создаём таблицу
 for(i=0;i<256;i++) BMT[i]=LenSub;
 for(i=LenSub-1;i>=0;i--)
     if(BMT[(BYTE)*(SubStr+i)]==LenSub) BMT[(BYTE)*(SubStr+i)]=LenSub-1-i;

// Ищем
 pos=(BYTE*)Str+LenSub-1;
 while(pos<(BYTE*)(Str+LenStr)) {
       if((BYTE)*(SubStr+LenSub-1) != *pos) pos+=BMT[*pos];
       else for(i=LenSub-2;i>=0;i--) {
            if((BYTE)*(SubStr+i) != *(pos-(LenSub-1)+i)) {
                pos++;
                break;
            }
            else if(i==0) return(char*)(pos-LenSub+1);// Есть совпадение
       }
 }
// Совпадений нет
return NULL;
}

(С) DrUnkard

Проверяй, должно работать... В принципе, был вариант, работающий еще быстрее, но это уже не совсем Boyer-Moore...