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:

//–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.