枚举类型的访问

procedure TForm1.test;type  xx=(a=4,b,c,d,e,f,g);var  i:xx;begin  for i := low(xx) to high(xx) do    showmessage(inttostr(ord(i)));end;