小编use*_*512的帖子

我只是想学习变体记录，有人可以解释一下如何检查记录中的形状是矩形还是三角形等，或者有可用的实现示例吗？我在这里检查了变体记录，但是没有可用的实现。

type
    TShapeList = (Rectangle, Triangle, Circle, Ellipse, Other);
    TFigure = record
    case TShapeList of
      Rectangle: (Height, Width: Real);
      Triangle: (Side1, Side2, Angle: Real);
      Circle: (Radius: Real);
      Ellipse, Other: ();
   end;