Показать сообщение отдельно
  #3  
Старый 16.07.2012, 18:08
Pcrepair
 
Сообщения: n/a
По умолчанию

там тоже было....
Вот так работает как было задумано:
Код:
     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
может кто сумеет объяснить? в букварях об этом ничего не нашел
Ответить с цитированием