|
|
Регистрация Восстановить пароль |
Повторная активизация e-mail |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
28.11.2017, 10:15 | #1 |
Регистрация: 25.09.2017
Сообщений: 5
|
Функция работает не верно (проверка присутствия текста в Memo)
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 выводит ДА и наоборот, функция не работает, помогите найти ошибку |
28.11.2017, 10:22 | #2 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,526
|
1. просто нет нужного слова.
2. нужное слово записано с использованием букв другого регистра( а <> А ) AnsiCompareText AnsiLowerText в помощь. 3. пример точный(см. п.2) в студию.
программа — запись алгоритма на языке понятном транслятору
Последний раз редактировалось evg_m; 28.11.2017 в 10:26. |
28.11.2017, 14:31 | #3 |
Старожил
Регистрация: 16.05.2012
Сообщений: 3,211
|
Код:
Код:
И вообще даже булеан тут не нужен: Код:
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
Последний раз редактировалось Sciv; 28.11.2017 в 14:37. |
28.11.2017, 14:50 | #4 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
короче:
Код:
Код:
|
28.11.2017, 14:52 | #5 |
Старожил
Регистрация: 16.05.2012
Сообщений: 3,211
|
Действительно, короче Ну не люблю я Exit'ом пользоваться
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
|
28.11.2017, 15:17 | #6 |
Старожил
Регистрация: 09.01.2008
Сообщений: 26,229
|
ну, break - это тоже в некотором роде Exit, только локальный
но я обратил внимание на боюсь, что автор топика задал неверное направление для решения задачи. Дело в том, что задача проверки присутствия слов отличается от задачи проверки присутствия подстроки. это разные задачи. ну, например, дана строка: Докладчик выступал долго проверить слово "клад". Очевидно, что такого слова нет в строке. А подстрока - есть. |
28.11.2017, 17:18 | #7 |
Старожил
Регистрация: 16.05.2012
Сообщений: 3,211
|
Ну что-то наподобие этого я и спросил у ТС в посте №3 (внизу мелким шрифтом)
Начал решать проблему с помощью регулярных выражений. Теперь решаю две проблемы...
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Программа написано верно, но почему-то не работает (на Си) | Дмитрий Огнев | Помощь студентам | 7 | 29.04.2014 20:19 |
strpos работает не верно с булевым значением | SwitchOFF | PHP | 2 | 08.07.2011 14:31 |
Проверка текста Memo | fineleave | Помощь студентам | 4 | 11.06.2011 21:48 |
функция сортировки массива работает не верно | DroZd911 | Помощь студентам | 1 | 18.02.2011 05:33 |
fgets - работает не верно, и вообще тупит | heart | C++ Builder | 14 | 29.11.2009 15:55 |