TPoint3D¶

type
  TPoint3D = packed record
    TSingle3Array = Array[0..2] of single;
    constructor Create;
    procedure Offset(const adeltax: single; const adeltay: single; 
                const adeltaz: single);
    procedure Offset(const adelta: TPoint3D);
    function ToString(aSize: Byte; aDecimals: Byte) : RTLString; overload;
    function ToString : RTLString; overload;
    case Integer of
      0: (
        data : TSingle3Array;
      );
      1: (
        x : single;
        y : single;
        z : single;
      );
  end;