[rerebro]

Вообщем суть в том что есть два списка слов.
оба упорядочены. 1 содержит все слова из файла. второй Все уникальные тоесть.

Код:

 words:= TStringList.Create;
     words.Sorted:=True;
     words.Duplicates:=dupIgnore;
     allwords:=TStringList.Create;
     allwords.Sorted:=True;

Нужен цикл или способ. Сравнить эти 2 списка и записать количество повторений для каждого слова. Пробывал по разному написать почему то цикл проходит 1 раз. и выводит на все слова 2.
последняя не правильно работающая попытка. =\

Код:

  for i := 0 to words.Count-1 do
      for j := 0 to allwords.Count-1 do
          if allwords.indexOf(words[i])>0 then
          begin
          allwords.Delete(allwords.indexOf(words[i]));
        inc(snum[i]);
        end;