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