|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
27.11.2012, 20:45 | #1 |
Регистрация: 27.11.2012
Сообщений: 4
|
Словарный запас delphi
Помогите пож написать программу на Delphi, которая считывала txt файл и считала словарный запас - считала кол-во всех слов из файла, те слова которые повторяются считала за одно.
Я находил проги которые считаю слова, но как сделать чтоб повторяющиеся считала за одно не знаю( |
27.11.2012, 20:47 | #2 |
Регистрация: 27.11.2012
Сообщений: 4
|
Если поможет - вот прога считает просто кол-во слов. Тока через мемо(
procedure TForm1.Button1Click(Sender: TObject); const //Множество разделителей. D = ['.', ',', ':', ';', '!', '?', '-', ' ', #9, #10, #13]; var S : String; i, Len, LenW, Cnt : Integer; begin S := Memo1.Text; Len := Length(S); LenW := 0; Cnt := 0; //Перебор символов строки слева - направо. for i := 1 to Len do begin //Пропускаем разделители. if S[i] in D then Continue; //Очередной символ учитываем в длине слова. Inc(LenW); //Отслеживаем конец слова. if (i = Len) or (S[i + 1] in D) then begin //Подсчёт общего количества слов. Inc(Cnt); //Сброс длины слова. LenW := 0; end; end; //Ответ: ShowMessage('Словарный запас: ' + IntToStr(Cnt)); end; end. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
создание модуля Delphi для поворота растровых изображений.delphi | Romka62 | Помощь студентам | 1 | 18.11.2012 15:22 |
Не изменяется интерфейс моей программы при переходе с Delphi 7 на Delphi 2010 | Elvisnya | Общие вопросы Delphi | 3 | 28.04.2011 15:59 |
Rad Studio 2011 XE: новое в Delphi, C++ Builder, RadPHP и Delphi Prism | savva-paladin | Софт | 18 | 02.10.2010 20:24 |
Delphi. Как нарисовать в Delphi два движущиеся шара с определенной скоростью? | redred | Общие вопросы Delphi | 10 | 11.12.2007 10:43 |
Как открыть БД, написанную в Delphi если нf другой машине Delphi нет? | dagarik | БД в Delphi | 7 | 22.10.2007 17:54 |