Delphi Function e Procedure

By tresloukadu

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.