Скачать: CL | DM;

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

← →
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Сенкс.

---

← →
Defunct ©   (2004-03-24 15:31) [9]

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

---

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

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

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.03 c