如何将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