Procedure MyInc(Var Variabile : Integer; Quantita : Integer);
Begin
Result := Variabile + Quantita;
End;
Procedure MyInc(Var Variabile : Extended; Quantita : Extended);
Begin
Result := Variabile + Quantita;
End;
Procedure Myinc(Var Variabile : String; Quantita : String);
Begin
Result := Variabile + Quantita;
End;
Var
A : Integer;
B : Extended;
C : String;
Begin
A := 10;
B := 11.121;
C := 'Ciao';
MyInc(A, 1);
MyInc(B, 1.2);
MyInc(C, ' mondo');
............................
A questo punto avremo
A = 11;
B = 12.321;
C = 'Ciao mondo';
............................
End;