rtti

Ответ от Alexey N[гуру]
Вроде бы находите минимальный и маскимальный элемент енума, а потом через GetEnumName получаете конкретные значения. OrdTypeInfo: PTypeInfo; ... TypeKindStr := GetEnumName(TypeInfo(TTypeKind), Integer(OrdTypeInfo^.Kind)) ; MinVal := OrdTypeData^.MinValue; MaxVal := OrdTypeData^.MaxValue; if OrdTypeInfo^.Kind = tkEnumeration then for ix := MinVal to MaxVal do Add(Format(\' Value: %d Name: %s\', [ix, GetEnumName(OrdTypeInfo, ix)])) ; end;