Italian community of Lazarus and Free Pascal

Procedure MyInc(Var Variabile : Integer; Quantita : Integer); Overload;
Procedure MyInc(Var Variabile : Extended; Quantita : Extended); Overload;
Procedure Myinc(Var Variabile : String; Quantita : String); Overload;

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;

Procedure MyInc(Var Valore : Integer; Quantita : Integer); Overload;
Procedure MyInc(Var Pippo : Integer; Quantita : Integer); Overload;

Procedure MyInc(Var Valore : Integer; Quantita : Integer); Overload;
Procedure MyInc(Var Pippo; Quantita : Integer); Overload;