114.Организация вывода текстовых сообщений

В данном уроке будут рассмотрены функции вывода сообщений. Сначала обсудим функцию MessageDlg (как более содержательную). Она используется для вывода на экран messagebox с неким сообщением и несколькими кнопками (Yes, No, OK и т. д.), пример приведен на рисунке 1.

Параметры у этой функции следующие. Первый задает строку, которая будет показываться в нашем сообщении (Как и все строи в Delphi, заключаем ее в одинарные кавычки). Второй параметр определяет иконку на нашем messagebox и сообщение в его заголовке. Возможные значения для этого параметра - mtConfirmation (Подтверждение), mtInformation (Сообщение), mtWarning (Предупреждение), mtError (Ошибка). Обратите внимание, что при записи любого из перечисленных значений messagebox получит и соответствующий заголовок. Для этого параметра есть еще одно значение - mtCustom. Если использовать его, то никакой иконки в нашем messagebox не будет, а заголовок будет совпадать с именем exe-файла.

Третий параметр определяет кнопки, которые будут присутствовать на combobox. Вот некоторые из возможных значений: mbYes (кнопка Yes), mbNo (кнопка No), mbCancel (кнопка Cancel), mbOK (кнопка OK). Если кнопок несколько, то они объединяются посредством квадратных скобок (например, если мы хотим, чтобы присутствовало две кнопки Yes и No, то пишем [mbYes, mbNo]).

Последний, четвертый параметр - это идентификатор контекстной справки.

В качестве результата функции MessageDlg возвращает значение, информирующее о том, что за кнопку пользователь нажал в messagebox. Вот несколько возможных значений: mrYes, mrCancel, mrOK.

Пример использования функции MessageDlg:

if MessageDlg('Выходим из программы?',

mtConfirmation, [mbYes, mbNo], 0) = mrYes

then close;

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

Теперь обсудим функцию ShowMessage. У неё только один параметр - текст сообщения.

Пример:

ShowMessage('Сообщение');

Ничего тут особо интересного нет. Отметим, что эта функция используется для вывода простых сообщений, которые не требуют ответа от пользователя (типа Yes, No и т. д.).

121. Подпрограммы в Delphi

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

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

Работа с подпрограммой делится на два этапа:

1. описание подпрограммы;

2. вызов подпрограммы.

Любая подпрограмма должна быть предварительно описана, после чего допускается ее вызов. При описании подпрограммы определяются ее имя, список формальных параметров и выполняемые подпрограммой действия. При вызове указываются имя подпрограммы и список аргументов (фактических параметров), передаваемых подпрограмме для работы.

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

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

С подпрограммой взаимодействие осуществляется по управлению и по данным. Взаимодействие по управлению заключается в передаче управления из программы в подпрограмму и организации возврата в программу.

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

• с использованием файлов;

• с помощью глобальных переменных;

• с помощью параметров.

Наиболее часто применяется последний способ. При этом различают параметры и аргументы. Параметры (формальные параметры) являются элементами подпрограммы и используются при описании операций, выполняемых подпрограммой.

Аргументы (фактические параметры) являются элементами вызывающей программы. При вызове подпрограммы они замещают формальные параметры. При этом проводится проверка на соответствие типов и количества параметров и аргументов. Имена параметров и аргументов могут различаться, однако их количество и порядок следования должны совпадать, а типы параметров и соответствующих им аргументов должны быть совместимыми.

Для прекращения работы подпрограммы можно использовать процедуру Exit, которая прерывает выполнение инструкций подпрограммы и возвращает управление вызывающей программе.

Подпрограммы можно вызывать не только из программы, но и из других подпрограмм.