Объявление функции

Объявление функции в общем виде выгладит так:

 Показать / Скрыть текст

где:

• function — зарезервированное слово языка Delphi, обозначающее, что далее следуют инструкции, реализующие функцию программиста;
• Имя — имя функции. Используется для перехода из программы к инструкциям функции;
• Параметр — это переменная, значение которой используется для вычисления значения функции. Отличие параметра от обычной переменной состоит в том, что он объявляется не в разделе объявления переменных, который начинается словом var, а в заголовке функции. Конкретное значение параметр получает во время работы программы в результате вызова функции из основной программы;
• Тип ~ тип значения, которое функция возвращает в вызвавшую ее программу.

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

В качестве примера в листинге 6.3 приведены функции isint и isFloat. Функция isint проверяет, является ли символ, соответствующий клавише, нажатой во время ввода целого числа в поле редактирования, допустимым.

Предполагается, что допустимыми являются цифры, клавиши и . Функция is Float решает аналогичную задачу, но для дробного числа. У функции isFloat два параметра: код нажатой клавиши и строка символов, которая уже введена в поле редактирования.

Листинг 6.3. Примеры функций

 Показать / Скрыть текст

01.// проверяет, является ли символ допустимым

02.// во время ввела целого числа

03.function Islnt(ch : char) : Boolean;

04.begin

05.if <ch>= ' 0 ' ) and (ch <= ' 9 ' ) // цифры</ch>

06.or (ch = #13) // клавиша <enter></enter>

07.or (ch = )t8) // клавиша <bacfcspace></bacfcspace>

08.then Islnt := True // символ допустим

09.else Islnt := False; // недопустимый символ

10.end;

11.// проверяет, является ли символ допустимым

12.// во время ввола дробного числа

13.function IsFloat(ch : char; st: string) : Boolean;

14.begin

15.if (ch >- ' 0 ' ) and (ch <= ' 9 ') // цифры

16.оr (ch = #13) // клавиша <enter></enter>

17.or (ch = #8) // клавиша <beckspnce></beckspnce>

18.than

19.begin

20.IsFloat :- True,- // символ верный

21.Exit; // выход из функции

22.end;

23.case ch of

24.'-': if Length(st) = 0 than IsFloat := True;

25.',': if (PosC, -,st) - 0) and (st[length(st]] >= ' 0 ' ) and (st[Length(gt)] <= ' 9 ') then

26.// разделитель можно ввести только после цифры

27.// и если он еще не введен

28.IsFloat := True;

29.else // остальные символы запрещены

30.IsFloat := False;

31.end;

32.end;

Использование функции

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

Следующая программа (ее текст приведен в листинге 6.4, а вид диалогового окна на рис. 6.1) вычисляет стоимость поездки на дачу. Исходными данными для программы являются: расстояние, цена одного литра бензина и потребление бензина на 100 км пути. Для ввода исходных данных применяются ПОЛЯ Editl, Eciit2 И Edit3. ФуНКЦИИ обработки события onkeypress используют функцию is Float для фильтрации вводимых в эти поля символов, во время работы программы в полях ввода отображаются только допустимые символы.

Листинг 6.4. Пример использования функций программиста

 Показать / Скрыть текст