Проверка слов написанных через запятую в Edit

[FleXik]

Еще раз обьясняю, у меня есть слова "привет, пока, как дела" (и т.д), написанные через запятую в Edit, из этих слов надо сделать проверку как эта:

if ((Pos('привет', str)=0) and (Pos('пока', str)=0) and (Pos('как дела', str)=0) and (str>'')) then

но прикол в том что в Edit может быть разное количество слов и эти слова бывают разными (их указывает пользователь) и проверку надо делать на все слова сразу, грубо говоря мне нужно типа такого

if ((Pos(StringList[1], str)=0) and (Pos(StringList[2], str)=0) and (Pos(StringList[3], str)=0) and (str>'')) then

но количества слов и что это за слова - я не знаю и подставляться в условие if все слова должны автоматически

[doktor255]

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

так не катит

Естественно не катит. Ты же чушь написал.

r:=StringList.IndexOf(Что тут за бред?);

Телепатирую

var 
  b: bool;
  i: integer;
begin
  b := false; 
  if str = '' then b := true;
  with TStringlist.Create do 
    begin
      DelemitedText := Edit1.Text;
      for i := 0 to Count -1 do
        if Pos(Strings[i], str) > 0 then
          b := true;
      free;
  end;
if b then ShowMessage('Сработало одно из условий');
end;

[FleXik]

r:=StringList.IndexOf(Что тут за бред?);

я и с твоим бредом в скобках пробовал, не работало так же

[doktor255]

Бред не у меня, а у тебя. Спорь дальше сам с собой, раз не желаешь слушать.

[FleXik]

Бред не у меня, а у тебя. Спорь дальше сам с собой, раз не желаешь слушать.

я не спорю а говорю то что я пробовал, скорее всего я пробовал не правильно.

[FleXik]

может массивом это дело можно?

[doktor255]

Глаза вверх подними. Я тебе уже готовый код дал.

[FleXik]

Глаза вверх подними. Я тебе уже готовый код дал.

спасибо, работает, весы кликнул.

[Stilet]

Сделай двумя циклами - первый проходит по искомому, второй по исходному спискам, и поставь условие со сравнением.

[eval]

что это значит?

это значит что надо нанять программиста, и не дурить пустяками голову людям