Italian community of Lazarus and Free Pascal

Procedure MyInc(Var Valore : Integer; Quantita : Integer = 1);

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;

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: boolean);
begin
     if MessageDlg('CHIUSURA', 'Sei sicuro/a di voler abbandonare il programma?', mtConfirmation, [mbYes, mbNo],0) = mrNo then
        CanClose := False; {interrompe la chiusura dell'applicazione}
end;