如何重载加减操作符？？

Question

我定义了一个矢量类型
  TGLCNVector = record
    px, py, pz: Double; //三个分量
  end;
px, py, pz是三个分量，要加减的时候，我只能这样var
  a,b,c:TGLCNVector 
c.px:=a.px+b.px;
c.py:=a.px+b.py;
c.pz:=a.px+b.pz;这样太烦琐了能不能重载加减操作符，作成这样
c:=a+b;

Answer 1

VC里面可以 delphi没有见过

Answer 2

Delphi不支持操作符重载，你要实现这样的方法可以用函数解决！
function AddRecord(a, b :TGLCNVector):TGLCNVector;
var
  tmp :TGLCNVector
begin
  tmp.px := a.px+b.px;
  tmp.py := a.px+b.py;
  tmp.pz := a.px+b.pz;
  result := tmp;
end;