поиск строки в строке

← →
Pa5ha (2004-03-23 13:27) [0]

Нужно проверить наличие строки в строке и вернуть желательно правду или ложь. Не подскажете ли функцию побыстрее, а то файлов очень много, которые проверять надо.

← →
Fay © (2004-03-23 13:30) [1]

pos

← →
spirit © (2004-03-23 13:30) [2]

Функция F1

← →
Fay © (2004-03-23 13:33) [3]

Могу угадать следующий вопрос.
"Как загрузить/преобразовать файл в строку?!! Срочно!! Файлов очень много!!!!!"

← →
panov © (2004-03-23 13:33) [4]

Не функцию тебе надо, а алгоритм поиска.
Ищи в яндексе по словам Мур delphi.
здесь смотри -
http://program.rin.ru/cgi-bin/print.pl?id=828

← →
Digitman © (2004-03-23 13:34) [5]

Pos, AnsiPos, AnsiStrPos

выбирай на вкус

← →
Pa5ha (2004-03-24 14:14) [6]

> "Как загрузить/преобразовать файл в строку?!! Срочно!! Файлов
> очень много!!!!!"

Нет, не угадал. Как установить TListView, чтоб был виден найденый файл? Короче, как скролом пользоваться?

← →
vk_3057 © (2004-03-24 15:13) [7]

function ExisySubStr(lpSubStr,lpStr:string):boolean;
begin
Result:=Pos(lpSubStr,lpStr)<>0;
end;

← →
Pa5ha (2004-03-24 15:29) [8]

vk_3057Сенкс.

ЗЫ: если нужно искать строку в файле (с как можно более высокой скоростью поиска) - загружайте файл частично или полностью в массив символов или в TMemoryStream, и посимвольно ищите то, что Вам необходимо найти.

← →
Pa5ha (2004-03-24 16:12) [10]

> function ExisySubStr(lpSubStr,lpStr:string):boolean;
> begin
> Result:=Pos(lpSubStr,lpStr)<>0;
> end;

ERROR: не <>0, а >0;
А так все руль, всем спасибо, работает даже быстрее, чем я думал...

поиск строки в строке Найти похожие ветки