Пишу программу. Есть проблема:
Есть нетипизированный файл. Есть строка длиной 18 байтов. Нужно найти эту строку в файле (или найти максимальную длину части строки, которая встречается в файле).
Вопрос думаю ясен.
Так вот, сделал я этот поиск, но уж больно медленно он происходит. Знаю что можно его значительно ускорить. Есть ли варианты, алгоритмы?
Поиск на форуме проблему не разъяснил.

Цитата

Так вот, сделал я этот поиск, но уж больно медленно он происходит. Знаю что можно его значительно ускорить. Есть ли варианты, алгоритмы?

А код показать?

http://algolist.manual.ru/search/esearch/

Вот код.

Код

Function FindBlock(Memory: TMemoryStream;block:Tblock;len:byte;pos:integer):integer; var  sz,i,fpos,maxpos,ppos:integer;  blocktmp:Tblock;  flen,max:byte;  ch:char; begin  Result:=-1;  ppos:=pos-4095;  If ppos<0 then ppos:=0;  max:=3;  sz:=pos;  While sz>ppos do    begin      sz:=sz-1;          Memory.Seek(sz, soFromBeginning);          Memory.Read(blocktmp,len);          i:=0;          flen:=0;          While (i<len) and (blocktmp[i+1]=block[i+1]) do            begin              inc(i);              flen:=i;            end;          If (flen>=max) and (flen>=3) then            begin              max:=flen;              fpos:=sz;              Result:=100*fpos+max;              If flen=len then exit;            end; end;

Memory - файл висит в памяти.
block - искомая строка.
len - длина (18)
pos - позиция в файле (ищем в 4 кб до данной позиции).

Добавлено @ 12:17
Akina
Смотрел, но как применить конкретно к данному случаю придумать пока не могу.

Voyager
Тебе надо сразу понять - поиск полного совпадения и поиск частичного совпадения надо вести разными модулями, т.е. кодить по отдельности. Потому как искать частичное совпадение усекновением подстроки и поиском полного совпадения подстроки не очень разумно...

Поиск точного совпадения полность рассмотрен по ссылке, и додумывать там нечего. Ну разве что файл большой и в память его целиком не взять (по любой причине) - тогда предусмотреть буфер чтения и искать кусками... хотя разумнее потратить эту память на составление словаря текста и искать уже в нем... поиск подстроки же сразу разумнее вести через словарь. ИМХО конечно.

Кода не дам - в Дельфах ни фига не понимаю. Разобраться могу, конечно, но не более, ибо лень.