повторение слов в txt файле

[v.v.veter]

Суть проблемы такова. Нужно в таблицу записать слова и количество их повторений в файле txt. Слова берутся не менее 3 символа,все слова разделены минимум одним пробелом. Примерно так должно выглядеть в конечном итоге:

слово кол-сво повторений

стол 54
стул 32
пол 5

Написать нужно на Delphi.
P.S. приведите пример,или может встречали уже подобное, накройняк чем реализовывать хоть. Заранее благодарен.

[Serge_Bliznykov]

в Delphi ?
Дык проще паренной репы!

если порядок не важен, то:
создаёте объект типа TSTringList (var TS : TSTringList; ... TS := TSTringList.Create();
Грузите в STringList ( TS.LoadFromFile('имя_файла.txt')
устанавливаете символ разделитель - пробел.
Потом сортируете методом Sort ( TS.Sort )
запоминаете текущее значение.
в цикле по всем элементам (словам) пока значение запомненное совпадает с текущим - увеличиваем счётчик.
Если не равно - выводим слово, счётчик, запоминаем новое слово и счётчик устанавливаем в 1.

всё.

вот готовая программа (целиком!)

procedure TForm1.Button1Click(Sender: TObject);
var TS : TStringList;
    s, OneWord : string;
    i, Cnt : integer;
begin
   TS := TStringList.Create;
   TS.Delimiter := ' ';
   TS.LoadFromFile('C:\t.txt');
   s := TS.Text;
   TS.DelimitedText := s;

   if TS.Count = 0 then begin
     ShowMessage('Вообще ни одного слова нет!');
     Exit;
   end;

   TS.Sort;

   Memo1.Lines.Clear; // подготовим место для формирования отчёта

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

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

   FreeAndNil(TS); // освободим память
end;

[v.v.veter]

Спасибо именно то!