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

[FleXik]

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

if ((Pos('a', str)=0) and (Pos('b', str)=0) and (Pos('c', str)=0) and (str>'')) then

P.S на ум только лезет следующее:
1. используя Delimiter убираем запятые и записываем в список TStringList
2. перебираем список по-очереди

но вот реализация второго пункта не понятна вообще.

[northener]

но вот реализация второго пункта не понятна вообще.

Неужели непонятно
и перебираем
и список
и по очереди
?
Или не понятно что-то одно?

[FleXik]

Или не понятно что-то одно?

непонятно как это можно реализовать, идею я написал, из идеи не понятно это "перебираем список по-очереди"

[BDA]

for i := 0 to ts.count - 1 do

[doktor255]

for i := 0 to StringList.Count - 1

[FleXik]

думал про цикл, но оно разве будет работать как код ниже?
a, b, c - слова

if ((Pos('a', str)=0) and (Pos('b', str)=0) and (Pos('c', str)=0) and (str>'')) then

[doktor255]

Ты просил перебор листа, тебе дали перебор листа. Каков вопрос, таков ответ. Если хочешь дедектить слова в листе, используй IndexOf.

[FleXik]

Ты просил перебор листа, тебе дали перебор листа. Каков вопрос, таков ответ.

1. я просил совсем другое и описал проблему максимально подробно
2. я написал P.S на ум только лезет следующее, т.е я не написал что это правильный вариант и что надо так делать.

циклом конечно-же не работает (оно и понятно)

дедектить

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

[doktor255]

i := StringList.IndexOf('a');
if i = -1 then ShowMessage('слова a в списке нет')
else ShowMessage('слово a есть в списке');

и описал проблему максимально подробно

Если тебя одинаково не поняли два программиста, значит ты плохо описал проблему.

[FleXik]

r:=StringList.IndexOf(StringList.Text);
if ((r=-1) and (str>'')) then

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