Какой синтаксис для включения методов в запись варианта? - PullRequest
Новая
       27

Какой синтаксис для включения методов в запись варианта?

9 голосов
/ 10 марта 2010

У меня следующее определение записи 

  E3Vector3T = packed record
  public
      x: E3FloatT;
      y: E3FloatT;
      z: E3FloatT;

      function length: E3FloatT;
      function normalize: E3Vector3T;
      function crossProduct( const aVector: E3Vector3T ): E3Vector3T;

      class operator add( const aVector1, aVector2: E3Vector3T ): E3Vector3T;
      class operator subtract( const aVector1, aVector2: E3Vector3T ): E3Vector3T;
      class operator negative( const aVector: E3Vector3T ): E3Vector3T;
      class operator multiply( const aVector: E3Vector3T; const aScalar: E3FloatT ): E3Vector3T;
      class operator divide( const aVector: E3Vector3T; const aScalar: E3FloatT ): E3Vector3T;
  end;

Что я хотел сделать, так это ввести вариант записи, чтобы иметь возможность доступа к трем элементам как по отдельности, так и в виде массива, т.е. 

  E3Vector3T = packed record
  public
      case boolean of
          true: (
              x: E3FloatT;
              y: E3FloatT;
              z: E3FloatT;
          );
          false: (
              elements: packed array[0..2] of E3FloatT;
          );

      function length: E3FloatT;
      ..
  end;

Это не скомпилируется ( функция нуждается в типе результата при длине функции). Что-то очевидно, что я делаю неправильно, или это не поддерживается? В этом случае, какие-либо предложения для элегантного, но производительного способа доступа к отдельным полям в виде массива?

p.s. E3FloatT - псевдоним простого типа для Single.

Ответы [ 2 ]

9 голосов
/ 10 марта 2010

Может быть, это упущение в компиляторе, но он компилируется, когда методы объявлены перед вариантом. Это кажется разумным решением. 

E3Vector3T = packed record
  public
      function length: E3FloatT;
      ..

      case boolean of
          true: (
              x: E3FloatT;
              y: E3FloatT;
              z: E3FloatT;
          );
          false: (
              elements: packed array[0..2] of E3FloatT;
          );
  end;
6 голосов
/ 10 марта 2010

Переместите объявление функции вверх, как это: 

  E3Vector3T = packed record
  public
      function length: E3FloatT;
      case boolean of
          true: (
              x: E3FloatT;
              y: E3FloatT;
              z: E3FloatT;
          );
          false: (
              elements: packed array[0..2] of E3FloatT;
          );

  end;

Это компилируется в Delphi 2010.

...