Come si dichiarano gli operator overload in Delphi?
Ho provato la seguente sintassi ma non funziona...
type
TVector = class
var x,y : integer;
class operator Add(a,b:TVector):TVector;
end;
...
class operator TVector.Add(a,b:TVector):TVector;
var temp:TVector;
begin
temp.x:=a.x+b.x;
temp.y:=a.y+b.y;
Result:=temp;
end;
per poi fare
var a1,a2,a3:TVector;
a1.x:=1;
a1.y:=6;
a2.x:=7;
a2.y:=3;
a3 := a1+ a2;
ma non funziona, perchè????