Статистика слов в тексте

[American_dream]

Нужна помощь, необходимо подсчитать количество каждого слова(превышающее определенное количество раз... то есть встречается в тексте допустим более 2-3 раз) в тексте (Memo1). Допустим:
Ехал Грека через реку
Видит Грека в реке рак,
Сунул Грека в реку руку,
Рак за руку Греку цап.
И выводилось таким образом: "Грека" "3", "Рак" "2", "руку" "2", "реку" "2". В Лист бокс или СтрингГрид не имеет значения.

[TwiX]

Наработки? Как помочь? Я могу помолиться за Вас. Пойдёт?

[American_dream]

Дабы показать что я пытался делать, а не прошу все готовое... Вот моя работа http://zalil.ru/31880930
Я на форуме новичек, так что не знаю как подругому заливать и как это лудше делать.

[Serge_Bliznykov]

ваш проект не смотрел.

Посмотрите мой пример решения аналогичной задачи тут:
повторение слов в txt файле



ВНИМАНИЕ!
В архиве EXEшник заражённый Virus.Win32.Induc.a
Обнаружена угроза:
объект заражен Virus.Win32.Induc.a

Вам надо СРОЧНО лечить компьютер (Delphi) - читайте здесь -
Delphi-“вирус” проверьте свою установленную Delphi!

[Serge_Bliznykov]

вот вариант решения "по мотивам" вашего проекта:

procedure FindWordInString(S:string; var TS : TStringList);
const
  D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13];
var i:integer;
    S2:string;
begin
//  Result := TStringList.Create;
  S2 := '';
  For i:=1 to Length(S) do
  begin
     if (s[i] in D) then begin
        if (Length(S2)>0) then begin
          TS.Append(S2);
          S2:='';
        end;
     end
    else
        S2:=S2+s[i];
  end;
  if (Length(S2)>0) then TS.Append(S2);
end;

........

procedure TForm1.Button4Click(Sender: TObject);
var i, j, Cnt : Integer;
    S:string;
    OneWord : string;
    TSL : TStringList;
begin
  TSL := TStringList.Create;
  try
    FindWordInString(Memo1.Text, TSL);

    ListBox1.Items.Clear; // очистим ListBox
    if TSL.Count=0 then Exit; // если нет ни одного слова - выходим!

    TSL.Sort; // отсортируем массив по словам

     // А вот собственно  и подсчёт
     OneWord := TSL.Strings[0];
     Cnt := 1;
     for i := 1 to TSL.Count - 1 do
       if AnsiUpperCase(TSL.Strings[i]) = AnsiUpperCase(OneWord) then inc(Cnt)
       else begin
         ListBox1.Items.Append(OneWord+' '+InttoStr(Cnt));
         OneWord := TSL.Strings[i];
         Cnt := 1;
       end;

     // для последнего слова в списке вывод результата
     ListBox1.Items.Append(OneWord+' '+InttoStr(Cnt));

  finally
    FreeAndNil(TSL);
  end;
end;

[American_dream]

Спасибо выручил