Функция которая ищет слово в строке?

[VintProg]

А как сравнить строку без учета регистра, к примеру:

if s = 'SlovO' then

слово 'SlovO' хоть большими буквами хоть маленькими?

[Utkin]

If AnsiUpperCase(s)='SLOVO' then ....

И без разницы какими буковами у тебя в s...

[VintProg]

Utkin
Отлично все, нашел!

[rdama]

AnsiCompareText() - с учетом регистра
AnsiCompareStr() - без учета регистра

[VintProg]

rdama
Тебя тоже благодарю.

[Пепел Феникса]

хех, а есть в Делфи чтото типа strtok сишного?(очень бы помогло)

[vedro-compota]

алгоритм кнута-морриса-пратта - позволяут значительно ускорить поиск, батя. (если сам будешь искать)

[BOGGAD-BS]

попробуй так(будем считать что слова разделяются пробелом):

var token:array of string; //наши словечки(лучше переменную сделать глобальной)
i,k:integer; 
text:string;
begin
SetLength(token,Length(text));
k:=1;
text:=Memo1.Text;
for i:=1 to Length(text) do
     begin
     if text[i]<>' ' then token[k]:=token[k]+text[i] else
     inc(k);
     end;
end;

Теперь элементы массива token содержат слова текста введённого с Memo1.