Project1.dpr

program Project1;

uses
Forms,
Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

begin
Application.Initialize;
Application.CreateForm(TForm1, Form1);
Application.Run;
end.



Unit1.pas

unit Unit1;
//http://www.phidels.com
interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, FileCtrl, Spin;


type
TForm1 = class(TForm)
ButtonSommeString: TButton;
Edit1: TEdit;
Edit2: TEdit;
Label1: TLabel;
Label2: TLabel;
LabelResultat1: TLabel;
ButtonSommeInteger: TButton;
Label3: TLabel;
Label4: TLabel;
LabelResultat2: TLabel;
SpinEdit1: TSpinEdit;
SpinEdit2: TSpinEdit;
SpinEdit3: TSpinEdit;
ButtonSomeSpinEdit: TButton;
Label5: TLabel;
SpinEdit4: TSpinEdit;
Label6: TLabel;
LabelResultatSpinEdit: TLabel;
Label7: TLabel;
procedure ButtonSommeStringClick(Sender: TObject);
procedure ButtonSommeIntegerClick(Sender: TObject);
procedure ButtonSomeSpinEditClick(Sender: TObject);
private
{ Déclarations privées }
public
{ Déclarations publiques }
end;
{============================================================================}
{partie déclaration de nos fonctions }
{Une même fonction ou procédure peut être déclarée plusieurs fois }
{avec des paramètres différents }
{dans ce cas, Delphi choisira l'implémentation de la fonction qui correspond }
{au type des variables passées en paramètre }
{============================================================================}
function Somme(St1, St2:string):integer; overload;//les paramètres sont des strings
function Somme(I1,I2:integer):integer; overload;//les paramètres sont des integer
function Somme(S1,S2:TSpinEdit):integer; overload;//les paramètres sont des TSpinEdit


var
Form1: TForm1;

implementation

{$R *.DFM}

{==============================================================================}

{partie implémentation de nos fonctions }
{On a plus haut, dans la partie interface, 3 déclarations de la fonction somme }
{il faut implémenter chacune de ces déclarations }
{==============================================================================}

function Somme(St1, St2:string):integer;
begin
Result:=StrToInt(St1)+ StrToInt(St2);
end;

function Somme(I1, I2:integer):integer;
begin
Result:=I1+I2;
end;

function Somme(S1,S2:TSpinEdit):integer;
begin
Result:=S1.Value+S2.Value;
end;

{=============================================================================}
{partie utilisation de ces fonctions (por la démo... }
{=============================================================================}
procedure TForm1.ButtonSommeStringClick(Sender: TObject);
begin
LabelResultat1.Caption:=IntToStr(Somme(Edit1.Text, Edit2.Text));
end;

procedure TForm1.ButtonSommeIntegerClick(Sender: TObject);
begin
LabelResultat2.Caption:=IntToStr(Somme(SpinEdit1.Value, SpinEdit2.Value));
end;

procedure TForm1.ButtonSomeSpinEditClick(Sender: TObject);
begin
LabelResultatSpinEdit.Caption:=IntToStr(Somme(SpinEdit1, SpinEdit2));
end;

end.

 

 

 

Reply