Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Delphi: Для новичков > Замена поиска слова с Edit1.Text на Pos


Автор: Ruzza 7.9.2009, 12:18
Здравствуйте. подскажите. есть программа, в которой поиск слова производится вводом в Edit1:

[CODE]procedure TMainForm.FindTextButtonClick(Sender: TObject);
begin
 Edit1.Text;
 BeginFindReplacible;
end;[CODE]
 
т.е. ищем одно слово. Если вводить два слова, то они ищутся подряд, как и ввели - "пора домой" вводим - ищем "пора домой", а хотелось бы как, на примере POS:
if (Pos(пора', List[b]) <> 0) and (Pos('домой', List[b]) <> 0) and (_temp.IndexOf(List[b]) = -1)
then ..
т.е. поиск слов в любом месте строки и с условием "и", "или" (должны быть жестко зашиты в программу). можно ли такой осуществить?

Автор: Keeper89 7.9.2009, 12:21
Цитата(Ruzza @  7.9.2009,  13:18 Найти цитируемый пост)
т.е. поиск слов в любом месте строки и с условием "и", "или" (должны быть жестко зашиты в программу). можно ли такой осуществить? 

Можно, почему нет. Разбиваешь строку на массив слов и составляешь любые условия.

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)