Delphi — это мощный язык программирования, основанный на Object Pascal, который широко используется для создания настольных и мобильных приложений. В данной статье рассмотрим, как объявить и вызвать функцию в Delphi.
1. Объявление функции в Delphi
В Delphi функции и процедуры объявляются в секции interface
или implementation
модуля. Функция отличается от процедуры тем, что она возвращает значение.
Синтаксис объявления функции:
1
|
function FunctionName(Parameter1: Type1; Parameter2: Type2): ReturnType;
|
Пример:
1
|
function Sum(A, B: Integer): Integer;
|
Эта функция принимает два целочисленных параметра A
и B
и возвращает Integer
.
2. Реализация функции
Реализация функции выполняется в секции implementation
.
Пример:
1 2 3 4 |
function Sum(A, B: Integer): Integer; begin Result := A + B; end; |
Здесь ключевое слово Result
используется для возврата результата функции.
3. Вызов функции в программе
После объявления и реализации функции её можно вызывать в коде программы.
Пример вызова функции Sum
:
1 2 3 4 5 6 7 8 |
var X, Y, Z: Integer; begin X := 10; Y := 20; Z := Sum(X, Y); ShowMessage('Сумма: ' + IntToStr(Z)); end; |
Функция ShowMessage
отобразит результат выполнения функции Sum
в виде всплывающего окна.
4. Использование функций в классах
Функции можно объявлять внутри классов, используя модификаторы public
, private
, protected
и published
.
Пример:
1 2 3 4 5 6 7 8 9 10 11 12 |
type TCalculator = class public function Multiply(A, B: Integer): Integer; end; implementation function TCalculator.Multiply(A, B: Integer): Integer; begin Result := A * B; end; |
Вызов метода класса:
1 2 3 4 5 6 7 8 9 10 11 12 |
var Calc: TCalculator; Res: Integer; begin Calc := TCalculator.Create; try Res := Calc.Multiply(5, 4); ShowMessage('Произведение: ' + IntToStr(Res)); finally Calc.Free; end; end; |
Заключение
В Delphi объявление и вызов функций происходит по строгим правилам синтаксиса, что делает код структурированным и удобочитаемым. Использование функций позволяет повторно использовать код, улучшая его модульность и поддержку.