如何将C/C++程序转译成Delphi(七)

Here is a real-world example from the winnt.h, which is not possible to translate to a native enumerated type:

//



// Start Type



//







#define SERVICE_BOOT_START             0x00000000



#define SERVICE_SYSTEM_START           0x00000001



#define SERVICE_AUTO_START             0x00000002



#define SERVICE_DEMAND_START           0x00000003



#define SERVICE_DISABLED               0x00000004







//



//



//







typedef enum _CM_SERVICE_LOAD_TYPE {



    BootLoad    = SERVICE_BOOT_START,



    SystemLoad  = SERVICE_SYSTEM_START,



    AutoLoad    = SERVICE_AUTO_START,



    DemandLoad  = SERVICE_DEMAND_START,



    DisableLoad = SERVICE_DISABLED



} SERVICE_LOAD_TYPE;

The ordinal values of the items in the enumeration SERVICE_LOAD_TYPE depend on the constants declared above it. This is not possible in Delphi. The only way to translate it is:

//



// Start Type



//







CONST



  SERVICE_BOOT_START = $00000000;



  SERVICE_SYSTEM_START = $00000001;



  SERVICE_AUTO_START = $00000002;



  SERVICE_DEMAND_START = $00000003;



  SERVICE_DISABLED = $00000004;







  //



  //



  //







CONST



  BootLoad = SERVICE_BOOT_START;



  SystemLoad = SERVICE_SYSTEM_START;



  AutoLoad = SERVICE_AUTO_START;



  DemandLoad = SERVICE_DEMAND_START;



  DisableLoad = SERVICE_DISABLED;







TYPE



  TServiceLoadType = DWord;

Back to contents