Компонент tmainmenii

ДОПОЛНИТЕЛЬНЫЕ ПРОЦЕДУРЫ И ФУНКЦИИ

Существует достаточно большое число процедур для работы с файлами, например текстовый файл можно дописывать с помощью задания специаль­ного режима: Append(<ф.п. >);. Эта процедура устанавливает указатель в конец файла. Очень полезной является функция Eof (<ф.п.>) (End of file). Она возвращает true, если достигнут конец файла. С помощью этой функции Можно контролировать навигацию по файлу: not Eof(F) do begin

Read(F, a);....

end;.

Процедура Read (как и процедура write) сдвигает файловый указатель на единицу. Таким образом, с помощью приведенного выше цикла можно прочитать файл до конца.

ПРИМЕР ПРИЛОЖЕНИЯ 17

Пусть имеется некоторый текст, его необходимо занести в текстовый файл, зашифровать, переписывая в другой файл, и таким образом подгото­вить для отправки, например, по электронной почте.

Пусть шифрование осуществляется методом простой одноалфавитной подстановки. Все символы исходного файла заменяются кодами, отличаю­щимися от исходных символов на определенную величину, которая меняет­ся от символа к символу. Для кодирования с помощью генератора случай­ных чисел создается кодировочная таблица, например, из 23 чисел (адресат знает о числе 23). Эта таблица представляет собой алфавит кодирования. Текст разбивается на группы символов, включая #13 #10, и каждый символ изменяется в соответствии с кодировочной таблицей, т.е. код первого сим­вола увеличивается на первое число из таблицы, код второго - на второе число из таблицы и т.д. Для осуществления дешифровки кодировочную таб­лицу также необходимо записать в итоговый файл.

При решении данной задачи построим меню с помощью компонента TMainMenu. Это меню можно представить в виде табл. 13. Список объектов меню (строк меню в табл. 13) TMainMenu содержится в свойстве Items. Строки меню имеют тип TMenuItems. TMenu1tems в свою очередь содержит свойство Items, с помощью которого можно создавать подменю. Текст стро­ки меню записывается в свойстве Caption свойства Items.

Таблица 13

Исходный файл	Кодирование	Проверка	Выход
Новый файл	Таблица кодировки
Добавить	Кодирование файла
Прочитать

С активизацией меню связано событие OnClick. Данное событие выпол­няется, когда пользователь выбирает какой-либо пункт меню. К каждому пункту меню необходимо привязать свой обработчик. Доступ к пунктам ме­ню осуществляется по свойству Name (имя). В табл. 14 приводятся варианты имен пунктов меню, которые используются далее в программе.

Таблица 14
MainFile	CodeFile	InfoCompare	ExitPoint
NewFile	CodeTabl
AddFile	InfoCode
ReadFile

Для придания меню более привлекательного вида можно добавлять раз­делительные полосы (достаточно задать одним символом "минус" ("-")). При проектировании меню с помощью редактора меню (рис. 37) необходимо вы­брать имена (свойство Name) пунктам меню (см. табл. 14).

Рис. 37

В пункте меню можно назначить быструю клавишу, для этого перед ка­ким-либо символом нужно поставить символ &, например &Close, и можно вызывать пункт меню в данном случае с помощью Alt + С (первая буква слова Close). Пункту меню можно назначить горячую клавишу, тогда в лю­бое время можно выполнить данный пункт меню. Для этого нужно восполь­зоваться свойством Shortcut. Пункт меню можно сделать недоступным, если в процессе выполнения свойству Enabled задать false. С помощью Visi­ble можно скрыть любой пункт меню или подменю. Свойство Checked по­зволяет отмечать флажком последний выбранный пункт меню.

Рис. 38

Форма примера 17 приводится на рис. 38.

Справа на компоненте Memo1 формы примера 17 находится изображе­ние компонента MainMenu1, которое будет невидимым при выполнении программы. Ниже приводится программный код примера.

unit Priml7;

Дата добавления: 2014-12-29