Использование процедуры. Повторное использование функций и процедур.
Разработанную процедуру нужно поместить в раздел implementation, перед подпрограммой, которая использует эту процедуру.
Инструкция вызова процедуры в общем виде выглядит так:
Имя(СписокПараметров);
Где:
- имя – имя вызываемой процедуры;
- списокПараметров – разделенные запятыми фактические параметры.
Фактическим параметром, в зависимости от описания формального параметра в объявлении процедуры, может быть переменная, выражение или константа соответствующего типа.
Например, инструкция вызова приведенной выше процедуры решения квадратного уравнения может выглядеть следующим образом:
SqRoot(StrToFloat(Edit1.Text), StrToFloat(Edit2.Text), StrToFloat(Edit3.Text), k1,k2,rez);
Если в описании процедуры перед именем параметра стоит слово var, то при вызове процедуры на месте соответствующего параметра должна стоять переменная основной программы. Использование константы или выражения считается ошибкой, и компилятор в этом случае выведет сообщение:
Types of actual and formal var parameters must be identical (Тип фактического параметра должен соответствовать типу формального параметра).
В листинге 6.6 приведена программа решения квадратного уравнения, в которой используется процедура SqRoot. Окно программы представлено на рис. 6.2.
Рис. 6.2. Окно программы Квадратное уравнение