b align="justify"> Fail типу
String , після чого відкривається файл по зазначеному шляху, і зміст файлу копіюється в поле
Мемо1. procedure TForm1. Button2Click (Sender: TObject):
Даннаяпроцедуранаподобіі procedureTForm1. Button1Click (Sender: TObject) відкриває файл налаштування з роздільниками і виводить його в MEMO3 .
procedureTForm1. Button3Click (Sender: TObject):
Дана процедура виконує основне завдання програми - створює словник. На першому етапі роботи процедури створюється масив роздільників razd , одержуваний з поля MEMO3 . Потім текст з MEMO1 порядково зчитується в змінну строкового типу s . Якщо який-небудь символ цього рядка виявляється рівним одному з роздільників, то слово записується в масив рядків slova , де кожному слову відповідає один з елементів масиву. Далі з пар елементів масиву slova формується масив frazi < span align = "justify">, елементами якого є всі словосполучення тексту. Після цього запускається алгоритм пошуку однакових словосполучень. За наявності деякого числа однакових елементів у масиві frazi відбувається видалення всіх однакових елементів за винятком перевіряється і збільшення лічильника на кількість знайдених елементів. Після обходу по всьому масиву в перевірявся елемент дописується значення лічильника, яке відображає частоту вживання словосполучення в тексті і перехід до перевірки наступного словосполучення. Далі відбувається сортування (методом перестановок) отриманого словника за алфавітом.
На вході процедури подається текст з MEMO1. На виході в MEMO2 виводиться відсортований словник виду <кол-во повторень> ....... <словосполучення>.
procedure TForm1. Button4Click (Sender: TObject):
Дана процедура дозволяє зберігати отриманий раніше словник в текстовій файл. У ній також відкривається діалогове вікно з каталогом файлової системи. Використовується змінна типу TSaveDialog . Шлях до файлу записується в змінну
