Поиск Hex данных в большом файл

[GanGSISoft]

Мне нужно найи определённую последовательность байтов в файле 30mb и узнать её адрес
Я намисал алгоритм, но оно мне искало гдето 1мин, и то эти байты ноходились на 1/5 файла, может подскажете как оптимизировать мне это

Вот код:

function compareArrays(ar1,ar2:array of byte):boolean;
var i:byte;
begin
result:=true;
  for i:=1 to 7 do begin
    if ar1[i]<>ar2[i] then begin result:=false; exit;end;
  end;                                                   
end;

function findFun(path:string;ar:Array of byte):string;
var f:file;
    j,x:byte;
    a:array[1..16] of byte;
    i:longint;
begin
  assignFile(f,path);
  reset(f,1);
   for I:=1 to 30146559 do begin
    seek(f,i);
    for j:=1 to 7 do begin
     blockread(f,x,1);
     a[j]:=x;
    end;
    if compareArrays(ar,a)=true then showmessage(IntToHex(i,8));
   end;
  closeFile(f);
  result:='';
end;

[Stilet]

Можно попробовать работу с TFileStream.
Или загружать с blockread поблочно в динамический массив размером 1/10 размера файла и в массиве уже искать

[GanGSISoft]

Я загрузил файл в память, оказалось что поиск идёт очень быстро, основное время уходит на занрузуку файла в память, это наверное из=за blockread(f,x,1); А как файл можно в масив побыстрее загрузить.

А всё, ну я и наморозил, сделал вот так
blockread(f,fx,30146559); теперь вроде работает.

[GanGSISoft]

А может подскажете какой алгоритм поиска массива в массиве применять, а то мой(последовательность из n чисел сравнивается с всеми последовательностями из n чисел) чем длинее масив который нужно искть время увеличивется гораздо сильнее.

[Sasha_Smirnov]

Ну да, так и надо — со ВСЕМИ. Только не весь массив сравнивай — а до первого несовпадения.

Например, найдем "XYZa" в алфавите: ABCDE...xyz. На 24-м сравнении найдётся! И потом ещё 28 холостых, а быстрее никак. Это же не бинарный поиск в упорядоченном файле!

А если искомый массив не более 255 цифр, то его можно найти из окна поиска в Word. Word как-то очень быстро ищет! Ну не в 30 мегабайтах, но мегабайт по 10, думаю, осилит.

[Serge_Bliznykov]

а ещё есть такой алгоритм поиска, который называется быстрый поиск алгоритмом Бойера — Мура (the Boyer-Moore algorithm)
реализаций его полно, в том числе и для Pascal/Delphi...
Там фишка в том, что чем длинее строка поиска, тем быстрее происходит поиск... рекомендую попробовать/потестировать...

[GanGSISoft]

Sasha_Smirnov, ну я так и сдлаю, у меня HEX ркдаутор ищет за доли секунды надпись вконце файла, а прога что-то дольше.
Serge_Bliznykov, интересно попробую. А где достать реализацию на Delphi. Только нормальную.