delphi – Embarcadero RAD Studio XE2调试器中显示的局部变量的

TVector2D = record
  public
    class operator Equal(const V1,V2: TVector2D): Boolean;
    class operator Multiply(const D: Accuracy; const V: TVector2D): TVector2D;
    class operator Divide(const V: TVector2D; const D: Accuracy): TVector2D;
    class function New(const x,y: Accuracy): TVector2D; static;
    function Magnitude: Accuracy;
    function Normalised: TVector2D;
  public
    x,y: Accuracy;
  end;

使用定义为的方法：

class operator TVector2D.Equal(const V1,V2: TVector2D): Boolean;
  var
    A,B: Boolean;
  begin
    Result := (V1.x = V2.x) and (V1.y = V2.y);
  end;

  class operator TVector2D.Multiply(const D: Accuracy; const V: TVector2D): TVector2D;
  begin
    Result.x := D*V.x;
    Result.y := D*V.y;
  end;

  class operator TVector2D.Divide(const V: TVector2D; const D: Accuracy): TVector2D;
  begin
    Result := (1.0/D)*V;
  end;

  class function TVector2D.New(const x,y: Accuracy): TVector2D;
  begin
    Result.x := x;
    Result.y := y;
  end;

  function TVector2D.Magnitude;
  begin
    RESULT := Sqrt(x*x + y*y);
  end;

  function TVector2D.Normalised: TVector2D;
  begin
    Result := Self/Magnitude;
  end;

和常数：

const
    jHat2D : TVector2D = (x: 0; y: 1);

我希望(jHat2D = TVector2D.New(0,0.707).Normalised)的布尔值为True.然而它出来是假的.

在调试器TVector2D.New(0,0.707).Normalised.y中显示为1.

不可能是这正好是1,否则布尔值(jHat2D = TVector2D.New(0,0.707).Normalised)将为True.

有任何想法吗？

编辑

精度是一种定义为：精度=双精度的类型