Показать сообщение отдельно
  #2  
Старый 18.07.2011, 08:57
Аватар для Developer
Developer Developer вне форума
Прохожий
 
Регистрация: 01.07.2011
Адрес: Украина
Сообщения: 27
Версия Delphi: 7, 2009
Репутация: 75
По умолчанию

Код:
function  includesword(fraza, word : string) : boolean;
begin
  if pos(word,fraza)<>0 then result:=true else result:=false;
end;
Ответить с цитированием