[DELPHI] Operator Overload

[gygabyte017]

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è????

[alka]

L'overloading degli operatori è attualmente supportato solo dal compilatore Delphi.NET.

Ciao!