|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Функция работает не верно
Код:
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
|
||||
|
||||
Код:
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. |