Сегодня урок будет коротким!
Мы рассмотрим функции в Delphi.
Зачем вообще нужна функция? К примеру вы написали проект для диплома, у вас более 1000 строк кода, и есть повторяющие строки. Функция позволяет избегать такие повторения. То есть мы выносим повторяющийся код в функцию, а на месте тех десятков кода просто вызываем нашу функцию.
function имя (входные параметры):тип выходной переменной;
Рассмотрим это на примере. Запустим Delphi XE3, создаем проект и кидаем 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 с помощью функции :)