Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];




Вниз

Поиск слова в тексте 


shnitken   (2001-12-30 17:15) [0]

Добрый HI, Мастера. Поможите плз, расскажите, как можно зделать поиск слова в тексте.



Anatoly Podgoretsky   (2001-12-30 17:41) [1]

Ну например функцией POS



shnitken   (2001-12-30 18:09) [2]

Ежели не в тягость кусочек кода, плз



Anatoly Podgoretsky   (2001-12-30 18:31) [3]

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



Oleg Gashev   (2001-12-30 23:00) [4]

StrPos Example

uses SysUtils;
const

S: PChar = "Ready, Set, Go! ";
SubStr: PChar = "Set";

var

P: PChar;
begin
P := StrPos(S, SubStr);
if P = nil then
Canvas.TextOut(10, 10, "Substring not found")
else
Canvas.TextOut(10, 10, "Substring found at index " + IntToStr(P - S));
end ;

(C) Delphi Help



MrBeer   (2001-12-31 04:06) [5]

Ja ne znaju kak tam Pos sdelan, no hochu zametitj chto esli nado serjozno iskatj, estj smisl naiti algoritmi skazhem Turbo Boyer-Moore ili Apostolico-Giancarlo.
Po etoi teme estj horoshii sait (pravdo primeri na C):
http://www-igm.univ-mlv.fr/~lecroq/string/index.html

Best regards



Anatoly Podgoretsky   (2001-12-31 11:10) [6]

Серьезно искать!, пока проблема, что бы вообще что нибудь найти с помощью простейших функций



Вадим   (2001-12-31 15:25) [7]

const
s = "это строка";

Pos("о", s) = 3




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.17;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.014 c
14-52653          lel                   2001-11-22 11:37  2002.01.17  
Не понял библиотека ЕhLib , теперь небесплатная и бех исходников что ли???


3-52522           Oleg_K                2001-12-14 10:05  2002.01.17  
DataSet not in edit or insert mode


1-52616           Brand                 2001-12-30 23:49  2002.01.17  
Цвет формы и всего остальнлго


1-52573           Lamok (real)          2001-12-28 23:23  2002.01.17  
EStringlistError


3-52463           Wladimir              2001-12-14 07:50  2002.01.17  
Множественное удаление записей в таблице