Функции

[Sascha]

Сегодня урок будет коротким!
Мы рассмотрим функции в Delphi.
Зачем вообще нужна функция? К примеру вы написали проект для диплома, у вас более 1000 строк кода, и есть повторяющие строки. Функция позволяет избегать такие повторения. То есть мы выносим повторяющийся код в функцию, а на месте тех десятков кода просто вызываем нашу функцию.

function имя (входные параметры):тип выходной переменной;

Рассмотрим это на примере. Запустим Delphi, создаем проект и кидаем Button1 и Edit1 на форму. Далее в редакторе кода находим слово Private.

После слова Private объявляем функцию:

function sum (a, b:integer):integer;

Чтобы не писать сначала функцию и писать в ней параметры,нажимаем комбинацию клавиш Ctrl+Shift+C и Delphi автоматически создает заготовку ф-ии:

В теле функции напишем, то что будет она делать. К примеру простейшие действия — сложение переменных x,y

function TForm1.sum(a, b: integer): integer;
begin
sum:=a+b;
end;

Если мы запустим программу, то никаких действий не увидим, т.к функция у нас нигде не вызывается. Исправим это, кинем на форму Edit1 и кнопку и создадим событие OnClick и пишем:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
i:=sum(5,7);
Edit1.Text:=IntToStr(i);
end;

Происходит суммирование чисел 5 и 7 с помощью функции :)