Hi friends,

Is there a way to get an active enum value by its name:

For example: I need get "xtpCalendarDayThursday" value to use in activeX object:

type

CalendarWeekDay = TOleEnum;

const

xtpCalendarDaySunday = 1;

xtpCalendarDayMonday = 2;

xtpCalendarDayTuesday = 4;

xtpCalendarDayWednesday = 8;

xtpCalendarDayThursday = 16;

xtpCalendarDayFriday = 32;

xtpCalendarDaySaturday = 64;

xtpCalendarDayAllWeek = 127;

xtpCalendarDaySaSu = 65;

xtpCalendarDayMo_Fr = 62;

Thanks and best regards.

Dear Toninho,

You may use defines for each value, in example:

define xtpCalendarDayThursday 16

Antonio Linares wrote:Dear Toninho,
You may use defines for each value, in example:
#define xtpCalendarDayThursday 16

toninhofwi wrote:Is there a way to get an active enum value by its name:
For example: I need get "xtpCalendarDayThursday" value to use in activeX object:
type
CalendarWeekDay = TOleEnum;

Result_Value := TOleEnum;
Do CASE
   CASE xtpCalendarDaySunday = Result_Value
? "Sunday"
   CASE xtpCalendarDayMonday = Result_Value
? "Monday"
   CASE xtpCalendarDayTuesday = Result_Value
? "Tuesday"
   CASE xtpCalendarDayWednesday = Result_Value
? "Wednesday"
   CASE xtpCalendarDayThursday = Result_Value
? "Thursday"
   CASE xtpCalendarDayFriday = Result_Value
? "Friday"
   CASE xtpCalendarDaySaturday = Result_Value
? "Saturday"
   CASE xtpCalendarDayAllWeek = Result_Value
? "AllWeek"
   CASE xtpCalendarDaySaSu = Result_Value
? "SaSu"
   CASE xtpCalendarDayMo_Fr = Result_Value
? "Mo_Fr"
ENDCASE

Just do a binary search inside the ActiveX DLL for xtpCalendarDayThursday and check if it is there