Поиск слов в Txt или в Memo по вводу в Edit и тогда действие

[JINC]

Здравствуйте. Может я плохо искал, но мне нужна помощь. Нужно либо уже в заполненном тхт файле или в мемо, при вводе слова в edit оно ищет его и если находит среди всего текста тогда делает определенное действие, например Shape меняет цвет. Подскажите как это сделать.

[Serge_Bliznykov]

смотрите у Memo метод IndexOf()

[JINC]

А вот еще момент. Например у меня в мемо уже записаны слова : Вася,Петя,Коля. И в едит я ввожу предложение : Сегодня Петя устал. И вот если есть одно слово среди всего предложения которое есть в мемо,то выполняется действие. Тогда как мне быть ? То есть на те слова что бы не обращал внимание,а вот если нужное слово посреди предложения.

[evg_m]

Memo это

• или очень большая строка (->Text)
• или много-много маленьких строк (->Lines)

а значит или поиск в строке или поиск во многих строках. (pos)

[JINC]

Сообщение от evg_m

Memo это

• или очень большая строка (->Text)
• или много-много маленьких строк (->Lines)

а значит или поиск в строке или поиск во многих строках. (pos)

это я понимаю,но. если я ввожу просто слово которое в строке например "Вася" в первой строке,оно выполнит действие,а если я уже напишу "устал Вася",то действие не выполнится,а мне нужно что бы оно игнорировало слово "устал"

[evg_m]

начнем сначала
есть много-много слов(точнее букв) (тот самый Мемо)
для поиска мы вводим два слова "устал Вася"
а теперь что мы хотим (должны) найти?
при условии что в мемо есть и "Вася" и "устал"
но там нет "устал Вася".

P.S. если мы не хотим искать ВСЮ введенную последовательность букв (а компьютер не знает что такое слово, он знает только последовательность букв(знаков), то сначала мы должны выделить ту последовательность которую будем искать, и потом уже ЕЕ (выделенную последовательность называемую для краткости словом) искать.

[JINC]

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

[Stilet]

FULL-TEXT поиск?
Что-то типа:

with TStringList.Create do begin
 DelimitedText:=Edit.Text;
 for i:=0 to Count-1 do
  if pos(Strings[i],Memo.Lines.Text)<>0 then 
   Слово Strings[i] найдено. Делаем "что-то"
 free;
end;