Функция работает не верно (проверка присутствия текста в Memo)

[wany.iv]

function TForm4.pptt2(a,s:integer;x:string): string;//определение присутствия слов в memo
begin
s:=0;
for a:=0 to Memo2.Lines.Count-1 do
begin
if AnsiPos(x, Memo2.Lines[i])>0
then
begin
s:=1;
end;

end;
if s=1 then
begin
Result:='да';
end;
if s=0 then
begin
Result:='нет';
end;

Переменная Х содержит текст, если текст содержится в memo выводит ДА и наоборот, функция не работает, помогите найти ошибку

[evg_m]

1. просто нет нужного слова.
2. нужное слово записано с использованием букв другого регистра( а <> А )
AnsiCompareText AnsiLowerText в помощь.
3. пример точный(см. п.2) в студию.

[Sciv]

if s=1 then
if s=0 then

Про такой тип, как boolean, что-нибудь слышали?

(a,s:integer;x:string)

У a и s область видимости - одна функция, зачем Вы их как параметры вызова объявили?

И вообще даже булеан тут не нужен:

function TForm4.pptt2(x:string): string;//определение присутствия слов в memo
var
  a: integer;
begin
  Result := 'нет';
  for a := 0 to Memo2.Lines.Count - 1 do
    if AnsiPos(x, Memo2.Lines[i]) > 0 then
    begin
       Result := 'да';
       break; 
    end;
end;

Ну и возникает дополнительный вопрос: должна ли функция искать целые слова или их вхождения? Например, если в двух строках написать "одинаковый" и "одинокий", то слово "один" найдётся, даже если его вообще не будет в тексте мемо

[Serge_Bliznykov]

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

И вообще даже булеан тут не нужен:

короче:

function TForm4.pptt2(x:string): string;//определение присутствия слов в memo
var
  a: integer;
begin
  Result := 'да';
  for a := 0 to Memo2.Lines.Count - 1 do
    if AnsiPos(x, Memo2.Lines[i]) > 0 then
       Exit;
  Result := 'нет';
end;

или без цикла

function TForm4.pptt2(x:string): string;//определение присутствия слов в memo
begin
  if AnsiPos(x, Memo2.Text) > 0 
  then Result := 'да'
  else Result := 'нет';
end;

[Sciv]

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

if AnsiPos(x, Memo2.Lines[i]) > 0 then
Exit;

Действительно, короче Ну не люблю я Exit'ом пользоваться

[Serge_Bliznykov]

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

Действительно, короче Ну не люблю я Exit'ом пользоваться

ну, break - это тоже в некотором роде Exit, только локальный

но я обратил внимание на

Сообщение от wany.iv

определение присутствия слов в memo

боюсь, что автор топика задал неверное направление для решения задачи.
Дело в том, что задача проверки присутствия слов отличается от задачи проверки присутствия подстроки.
это разные задачи.
ну, например, дана строка: Докладчик выступал долго
проверить слово "клад". Очевидно, что такого слова нет в строке.
А подстрока - есть.

[Sciv]

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

Дело в том, что задача проверки присутствия слов отличается от задачи проверки присутствия подстроки.
это разные задачи.

Ну что-то наподобие этого я и спросил у ТС в посте №3 (внизу мелким шрифтом)