[elena_2002]

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

[Snake22]

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

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

Код:

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

[lmikle]

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

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

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

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

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

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;