Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Как правильно запустить один цикл внутри другого?

Pcrepair © (2012-07-16 15:38:00)
Добрый день. Есть следующие исходные данные:
- произвольный набор слов в переменной1:строка (ввод из МЕМО1) - слова образцы, их допустим 3
- произвольный набор слов в переменной2:строка (Ввод из МЕМО2) - ТЕКСТ, слова для сравнения, их десятки
Необходимо каждое слово из переменной1 поочередно сравнить со всеми словами из Переменной2, и при выполненении порогового условия

присвоить функции значение ДА или оставить НЕТ. Вот код:
function TForm1.CompareWordWithText(const S1,S2:string;var N1,N2:integer):boolean; (*где S1-СЛОВО; S2- ТЕКСТ; N1,2 - уровень компараторов*) var T1,T2:TStringList; i,s,Count1,Count2,Count3:integer; (*Счет1 - число строк в Т1(СЛОВО); Счет2- число строк в Т2(ТЕКСТ); Счет3- число совпадений слов в тексте*) WordRequest,WordText:string; begin CompareWordWithText:=False; T1:=TStringList.Create; T2:=TStringList.Create; T1.Text:=SpliteText(S1); (*ввод СЛОВО поиска*) T2.Text:=DelUselessWords(SpliteText(S2)); (*ввод ТЕКСТ*) Count1:=T1.Count; (*число строк в СЛОВО*) Count2:=T2.Count; (*число строк в ТЕКСТ*) Count3:=0; (*обнулить нужно стетчик*) (*====================================================================*) for s := 0 to T1.Count-1 do (*Цикл1, подстановка для сравнения слов - образцов*) begin WordRequest:=T1.Strings[0]; (*вводим первую строку - слово*) ShowMessage('Слово = '+WordRequest); (*тут видно что по очереди перебераются все слова из МЕМО1)*) (*=============================================*) for i := 0 to T2.Count-1 do (*Цикл2, текущее слово-образец сравнивается с массивом строк состоящих из одного слова*) begin WordText:=T2.Strings[0]; (*ввод первого слова из ТЕКСТ*) if CompareWords(WordRequest,WordText,N2)= TRUE Then (*если слова тождественны тогда увеличить счетчик +1*) Inc(Count3); (*так вроде лучше*) T2.Delete(0); (*удаление первого слова для цикла для обеспечения цикла - может не самое правильное решение, но работать то должно?*) end; (*===========================================*) T1.Delete(0); (*удаление первого слова для цикличности*) end; (*========================================================================*) if Count2 > 0 then (*защита от сбоя, когда абзац пуст*) CompareWordWithText:= Count3*100 div Count2 >= N1; (*формула присвоения выходу функции значения ДА при выполнении условия, или остается вначале установленное значение*) T1.Free; T2.Free; end;
SpliteText - функция, разделяет массив слов на массив строк по одному слову, удаляет знаки препинания и слова менее 3-х символов
DelUselessWords - функция, удаляет предлоги и прочие ненужные-запрещенные слова
CompareWords - функция, выдает ДА если WordRequest и WordText тождественны(это отдельная история и на стенде функция работает

нормально)

Вроде все должно работать, однако если в МЕМО1 и МЕМО2 ввести слова то функция обрабатывает только первое слово из МЕМО1
вот здесь ShowMessage('Слово = '+WordRequest); видно что остальные слова из МЕМО1 проходят Цикл(они там появляются)
но почемуто не попадают далее в CompareWords(WordRequest,WordText,N2), в общем Цикл сравнения проходит только один раз

Вопрос: где ошибка в передаче данных функции через параметры вовремя цикла? или может что то еще не так?

Pcrepair (2012-07-16 18:37:00) [1]
уже все ясно и понятно

Медвежонок Пятачок (2012-07-16 18:29:00) [2]
описание цикла. описание условий при которых он выполняется.
что не нравится?
что смутило?

Pcrepair (2012-07-16 18:26:00) [3]
а в букваре пишут другое:

> В начале работы оператора переменная-счётчик получает значение
> выражения-1. Если при этом значение счётчика окажется меньше
> или равно значению выражения-2, то выполняются операторы,
> входящие в действие. Это и есть один цикл. Затем переменная-
> счётчик принимает значение, следующее за текущим, и начинается
> новый цикл, то есть сравнение счётчика и выражения-2, выполнение
> действия, и так далее, до тех пор, пока значение переменной-
> счётчика не превысит значение выражения-2

.

Медвежонок Пятачок (2012-07-16 18:24:00) [4]
что объяснить? как происходит инкремент?
он происходит неумолимо неизбежно и бесшумно и на единицу.
в случае если CompareWords вернет true.

Pcrepair (2012-07-16 18:10:00) [5]
Бардак в головах критиканов, а у меня вот это

Вот так работает как было задумано:
for s := 0 to T1.Count-1 do begin WordRequest:=T1.Strings[s]; for i := 0 to T2.Count-1 do begin WordText:=T2.Strings[i]; (*ввод первого слова из ТЕКСТ*) if CompareWords(WordRequest,WordText,N2)= TRUE Then Inc(Count3); (*так вроде лучше*) end; end;
Однако мне непонятно как происходит инкремент, к примеру, WordRequest:=T1.Strings[s]; ведь перед этим было s := 0
может кто сумеет объяснить? в букварях об этом ничего не нашел

Anatoly Podgoretsky (2012-07-16 16:21:00) [6]
И как всегда в несколько форумов и везде бардак.

Медвежонок Пятачок (2012-07-16 16:09:00) [7]
не передается данные в ПЕРЕм WordRequest

Если в исходнике слева стоит переменная, справа - данные, а между ними оператор присваивания, то данные в переменную стопудово "передаются".

Медвежонок Пятачок (2012-07-16 16:04:00) [8]
Внешний цикл заканчивается только тогда, когда кончаются стрингсы первого мемо. Никакая компаревордна этот цикл не влияет.

Как бы она ни работала, она не влияет на прекращение первого цикла.

Pcrepair (2012-07-16 16:02:00) [9]
да нет там до того специальная функция формирует в TStringList массив строк по одному слову в строке(слова беруться из МЕМО)

Медвежонок Пятачок (2012-07-16 15:57:00) [10]
и цикл1 просто заканчивается

тот цикл заканчивается по числу стрингсов мема, о чем я и говорил. видно десять, а реально одна.

Медвежонок Пятачок (2012-07-16 15:53:00) [11]
пошагово? каким образом?

Точку останова внутрь цикла и дальше F8

Pcrepair (2012-07-16 15:52:00) [12]

> Ты можешь видеть тридцать три строки в своем меме, и при
> этом стрингсов там будет ровно единица

ну тут только кусочек программы, вообще ввод слов идет через МЕМО1 и 2

RWolf (2012-07-16 15:52:00) [13]
впрочем, вру — не обязательно будет.

Pcrepair (2012-07-16 15:51:00) [14]
пошагово? каким образом? там же нужно данные вводить из МЕМО
вообще вводил ShowMessage в разных местах, получается что после первого цикла сравнения(который проходит нормально кстати) не передается данные в ПЕРЕм WordRequest из за чего просто функция CompareWords выдает НЕТ и цикл1 просто заканчивается

RWolf (2012-07-16 15:50:00) [15]
for i := 0 to T2.Count-1 do ... T2.Delete(0);

следующей проблемой будет Range check error.

Медвежонок Пятачок (2012-07-16 15:49:00) [16]
кроме того, не вижу никакой связи между словами и строками в мемо

WordRequest:=T1.Strings[0]; (*вводим первую строку - слово*)

Ты можешь видеть тридцать три строки в своем меме, и при этом стрингсов там будет ровно единица.

Медвежонок Пятачок (2012-07-16 15:45:00) [17]
а пошагово-то пройти и посмотреть не судьба?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »