был вариант
Код:
for i := 0 to words.Count-1 do
for j := 0 to allwords.Count-1 do
if allwords[j]=words[i] then
begin
inc(snum[i]);
end;
самый обычный. вообшем на файле:
Код:
Только только только чтобы работало только только только только только только только только только только
Созданым для проверки. выходит
Код:
words:
работало
только
чтобы
при проверке статистики пишет что все встречаются по 2 раза. =/