Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > [ "Начинающим" ]
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 28.11.2017, 09:30
wany.iv wany.iv вне форума
Прохожий
 
Регистрация: 25.09.2017
Сообщения: 7
Версия Delphi: Delphi 7
Репутация: 10
Вопрос Функция работает не верно

Код:
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 использования функции работает, потом нет не пойму в чем ошибка.
Заранее спасибо.

Последний раз редактировалось Admin, 28.11.2017 в 19:26.
Ответить с цитированием
  #2  
Старый 28.11.2017, 09:55
Аватар для -sanya-
-sanya- -sanya- вне форума
Новичок
 
Регистрация: 14.04.2009
Сообщения: 64
Репутация: 20
По умолчанию

Код:
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;
Админ: Последнее предупреждение по оформлению кода, далее санкции
__________________

Последний раз редактировалось Admin, 28.11.2017 в 19:37.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 17:41.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter