今儿Happy，解决一个超难问题！偶得，与大家分享！遍历枚举类型，返回其所有的值的名。支持就回贴哦

在数据字典应用的中需要动态得到Delphi支持的所有的字段类型，并显示uses DB,typinfo;GetFieldTypeAllVals(list: TStrings);
var
  p: PTypeData;
  i: Integer;
begin
  list.Clear;
  p := TypInfo.GetTypeData(TypeInfo(TFieldType));
  list.beginUpdate;
  try
    for i := p^.MinValue to p^.MaxValue do
      list.Append(TypInfo.GetEnumName(TypeInfo(TFieldType),i));
  finally
    list.EndUpdate;
  end;
end;