Задание:
Текстовый файл содержит текст на естественном языке.
Словом считается:
- последовательность подряд идущих букв или цифр;
- знак препинания (считается отдельным "словом");
- знак-разделитель, например, пробел (считается отдельным "словом").
Программа должна:
- построить словарь, в котором в алфавитном порядке упорядочены все встретившиеся слова (повторяющиеся слова дважды в словарь не включаются);
- сосчитать количество повторений каждого слова;
- сохранить файл словаря в текстовом формате, включая количество повторений.
Но что-то уже на начальном этапе траблы
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
openD: TOpenDialog;
list: TStringList;
begin
list:= TStringList.Create;
list.Sort;
openD := TOpenDialog.Create(nil);
openD.Filter := 'тесктовый файл|*.txt';
if openD.Execute then
begin
list.LoadFromFile(openD.FileName);
end;
list.Sorted := True;
list.Duplicates := dupIgnore;
List.SaveToFile('словарь.txt');
end;
Admin: Пользуемся тегами!
Нужна помощь профи
