Italian community of Lazarus and Free Pascal

Overload di operatori

L'overload di operatori con Free Pascal è molto più performante di quello con Delphi (vale solo su strutture) ed è di una semplicità estrema.

La sintassi è la seguente

Operator  [operatore] ([lista variabili]) [variabile di uscita] : [tipo di uscita]

dunque... le variabili di ingresso e di uscita sono inserite solamente per un fatto di compilazione, gli operatori che si possono overloadare sono:

:= assegnazione
+ somma
- differenza
* moltiplicazione
/ divisione
** elevazione
= uguaglianza
< minore
maggione
>= maggiore uguale

facciamo un piccolo esempio:

Vogliamo riscrivere l'operatore somma tra una stringa ed un intero (bella cavolata ma gli esempi funzionano cosi')

la dichiarazione sarà

Operator + (a: integer; b: String) c : String;

e lo sviluppo:

Operator + (a: integer; b: String) c : String;
begin
  C := IntToStr(A) + B;
End;

Quindi se assegnamo

Var
  A : Integer;
  S : String;
Begin
  A := 10;
  S := ' Caciotte';

e scriviamo un bel Write(A+S) otteniamo la scritta 10 Caciottte

Semplice no?