[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;


end;

Админ: Пользуемся тегами при оформлении кода!

Переменная Х содержит текст, если текст присутствует в memo выводиться да и наоборот. Первые раза 2-3 использования функции работает, потом нет не пойму в чем ошибка.
Заранее спасибо.

[-sanya-]

Код:

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

тык по кнопке
procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(pptt2('123'));
end;

Админ: Последнее предупреждение по оформлению кода, далее санкции