I'm trying to return the symbolic constant name for a TOleEnum value in the Excel_TLB type library.
But TOleEnum is a LongWord defined in the ActiveX unit (it's actually stored as a hex string, and when converted to a numeric can have negative values). So it is not an enumeration. The values are held as types with corresponding constants. See extract from Excel_TLB: // Constants for enum XlCommandUnderlines type XlCommandUnderlines = TOleEnum; const xlCommandUnderlinesAutomatic = $FFFFEFF7; xlCommandUnderlinesOff = $FFFFEFCE; xlCommandUnderlinesOn = $00000001; The TypeInfo unit's GetEnumName() isn't any use because the value is not an enumeration. I get back the string value of the integer. Has anyone got any ideas as to how to return the symbolic constant name without having a huge case statement? Regards John Wilson GWAcc Limited _______________________________________________ Delphi mailing list -> [email protected] http://www.elists.org/mailman/listinfo/delphi
