Код:
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;
end;
Админ: Пользуемся тегами при оформлении кода!
Переменная Х содержит текст, если текст присутствует в memo выводиться да и наоборот. Первые раза 2-3 использования функции работает, потом нет не пойму в чем ошибка.
Заранее спасибо.