No Delphi muita gente fica em dúvida quando se trata sobre Function ou Procedure. De modo bem resumido.
Function: Retorna um valor.
Procedure: Não retorna um valor.
Vejamos um exemplo do Delphi :
//–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 a + b 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;
