Анализатор текста

[Xeon332]

Написать программу «Анализатор текста».

Функции программы:
1. Открытие текстового файла
2. Анализ текста открытого файла
Программа должна получать следующие характеристики (информацию) текста:
1) Общие характеристики:
- количество абзацев (параграфов);
- количество символов;
- количество слов;
2) Частотная характеристика:
- количество слов, встречающихся в тексте.

Используемые компоненты:
- TActionManager – централизованная организация обработчиков действий пользователя
- TActionMainMenuBar – меню (для TActionManager)
- TActionToolBar – панель инструментов (для TActionManager)
- TImageList – иконки для действий TActionManager (соответственно для кнопок панелей инструментов и пунтков меню)
- TMemo – для вывода текста открытого файла
- TOpenDialog – диалог открытия файлов
- TPopumMenu – контекстное меню для TMemo (быстрый вызов команды анализа)
- TSplitter – для относительного изменения размеров компонент на форме
- TValueListEditor – список «Ключ=Значение» для вывода информации о характеристиках текста и частоте слова


Открытие текста и его загрузка это не проблема вообще. Но как подсчитать кол-во абзацев, символов и слов и потом это вывести в нужную ячейку столбца:


вот так она должна работать при нажатии на кнопку "анализировать"...

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

[Deamonig]

Объявляете файл как

File of byte

Далее пока не достигните конца файла выполняйте считывание одного байта, и сравниваете с ASCII эквивалентами Enter`a (количество Абзацев и еще + 1), Space(количесто слов, если начинается и/или кочнается текст не пробелом то еще +2/+1) , ну и любой другой символ считайте как символ.
Считывание байта - BlockRead(file,переменная типа byte,1);