Урок 57 - Создание собственных процедур и функций Delphi, (часть 2/3)

  Теперь пример. Напишем программу суммирования двух чисел. Она будет состоять из Формы, на которой будет кнопка (компонент Button), по нажатию на которую будет выполняться наша подпрограмма, и двух строк ввода (компоненты Edit), куда будем вводить операнды. Начнём с процедуры.

var Form1: TForm1; A, B, Summa: Integer; procedure Sum(A, B: Integer); implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); begin A:=StrToInt(Edit1.Text); B:=StrToInt(Edit2.Text); Sum(A, B); Caption:=IntToStr(Summa); end; procedure Sum(A, B: Integer); begin Summa:=A+B; end;

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

var
	Form1: TForm1;
	A, B, Summa: Integer;
	
function Sum(A, B: Integer): Integer;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
	A:=StrToInt(Edit1.Text);
	B:=StrToInt(Edit2.Text);
	Summa:=Sum(A, B);  // На мой взгляд, сейчас более понятно, откуда что берётся
	Caption:=IntToStr(Summa);
end;

function Sum(A, B: Integer): Integer;
begin
	Result:=A+B;
end;

   В следующем уроке мы рассмотрим особенности передачи параметров и некоторые возможности.

Удачи!
Встретимся в следующем уроке!