[elena_2002]

Написать программу на Delphi, которая будет считывать информацию из текстового файла, заносить ее в поле memo. Затем считать частоту вхождения каждого слова.
Причем нужно хранить эту информацию в списке.
А так же во второе мемо вывести список слов с количеством повторений

[Snake22]

Сообщение от elena_2002

Написать программу на Delphi, которая будет считывать информацию из текстового файла, заносить ее в поле memo.

Код:

Memo1.Lines.LoadFromFile('c:\1.txt');

[lmikle]

Даже отвечать не хочется.
Походу, пошли экзамены и лабы...

Тема перенесена в "Код на шару".

[Страдалецъ]

Вот вам такой вариантик:

Код:

procedure TForm1.Button1Click(Sender: TObject);
Var
  AllWordList,WordList: TStringList;
  i,n: Integer;
begin
 Memo1.Lines.LoadFromFile('C:\test1.txt');
 AllWordList := TStringList.Create;
 AllWordList.Duplicates := dupAccept;
 AllWordList.DelimitedText := Memo1.Text;
 AllWordList.Sort;

 WordList := TStringList.Create;
 ListBox1.Items.AddStrings(WordList);
 for i := 0 to AllWordList.Count - 1
 do begin
    n := WordList.IndexOf(AllWordList.Strings[i]);
    if n = -1
    then WordList.AddObject(AllWordList.Strings[i], TObject(1))
    else WordList.Objects[n] := TObject(Integer(WordList.Objects[n]) + 1);
    end;
 for i := 0 to WordList.Count - 1
 do ValueListEditor1.InsertRow(WordList.Strings[i], IntToStr(Integer(WordList.Objects[i])),True);
 WordList.Free;
 AllWordList.Free;
end;