[Delphi] Function e Procedure

O pessoal que está começando no Delphi geralmente ficam em dúvida quando ouvem sobre Function e Procedure. Vou explicar rapidamente o que é cada uma delas de modo bem resumido.

Function: Define uma subrotina que retorna um valor.

Procedure: Define uma subrotina que não retorna um valor.

É isso, a function retorna algo e a procedure não. Vejamos um exemplo do delphi basics:

Código:

//–Coloque este código em uma unit chamada Unt1 com um form
//–chamado Frm1 que tenha o evento OnCreate chamado FrmCreate.
unit Unt1;

interface

uses

Forms, Dialogs;

type
TFrm1 = class(TForm)
procedure FrmCreate(Sender: TObject);
end;

var
Frm1: TFrm1;

implementation
{$R *.dfm}

Function GetSum(a, b : Integer) : Integer;
begin
//Soma os dois números e retorna o resultado.
Result := a + b;
end;

procedure TFrm1.FormCreate(Sender: TObject);
var
total : Integer;
begin
//Mostra o resultado
total := GetSum(1,2);
ShowMessageFmt(‘%d + %d = %d’,[1,2,total]);

total := GetSum(62,444);
ShowMessageFmt(‘%d + %d = %d’,[62,444,total]);
end;

end.