关于枚举类型的简单问题？？？

Question

bear_c()兄弟，你说的方法不行。

Answer 1

type
  TLineType=(ggNone,ggText,ggUp,ggDown);
function smLength: integer;
var
  s:TLineType; 
begin
  s:=ggDown;
  Result:=integer(ggDown) + 1;
end;

Answer 2

可以增加一个最大值，如
type
  TLineType=(ggNone,ggText,ggUp,ggDown,ggMax);用ord(ggMax)就能取到总个数，而且以后增删了枚举值也不会有影响

Answer 3

这样能取到我是知道的。
    我的意思是我在后面增加一个类型数据，程序中就要改，我的部分程序根据类型变量的多少决定内存分配，怎么才能在中间不用修改呢。
    中间有一句，setlength(s,这是要得到TLineType的枚举数量)；
怎么样写，我加了类型，不用改程序，谢谢