TVector

type TVector = record

public

  class function Create();

  class function Zero;

  class operator add(TVector,TVector):TVector();

  class operator divide(TVector,Single):TVector();

  class operator equal(TVector,TVector):Boolean();

  class operator explicit(TVector):TPointF();

  class operator assign(TPointF):TVector();

  class operator assign(TVector):TPointF();

  class operator assign(TSizeF):TVector();

  class operator multiply(Single,TVector):TVector();

  class operator multiply(TVector,Single):TVector();

  class operator notequal(TVector,TVector):Boolean();

  class operator subtract(TVector,TVector):TVector();

  function Length;

  function Normalize;

  function CrossProduct();

  function DotProduct();

  function MidVector();

  function ToPointF;

  function ToString;

  case Integer of

    0: (

        V: TVectorArray;

      );

    1: (

        X: Single;

        Y: Single;

        W: Single;

      );

end;