GET an activeX ENUM by name

[toninhofwi]

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.

[Antonio Linares]

Dear Toninho,

You may use defines for each value, in example:

#define xtpCalendarDayThursday 16

[toninhofwi]

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

Hi Antonio, Thanks for the answer.

I'm doing this, but it would be easier to get the value directly from the object.

BTW thank you

Regards.

[Jimmy]

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;

you need to compare Result from Enum with Calendar define Constant

Code: Select all  Expand view

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

[Lailton]

Hi my friend toninhofwi,

It is something that I had in mind to verify too.
I will be checking about it and if I discover something I will share here.

[Antonio Linares]

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