C struct nach Delphi record

[Binärbaum]

Ich habe leider nicht die Zeit, den kompletten Code nach Delphi zu übersetzen, aber ich mache mal einen Anfang, indem ich das folgende übersetze:

Code:

typedef struct {
                    WORD  From;
                    WORD  Threshold;
 } TSAMCond;

typedef struct {
                    WORD  From;
                    WORD  Threshold;
 } TSAMCondOld;

typedef enum {
               PL_G3,
               PL_FAXPLUS,
               PL_FAXIP,
               PL_EMAIL,
               PL_WAV,
               PL_TMAIL,
               PL_SMS,
               PL_ECT,
               PL_FAX_BCAST,
               PL_EMAIL_BCAST,
               PL_SMS_BCAST,
               PL_HOUSECTRL,
               PL_COUNT
} TLineSpecNo;

typedef enum {
               DOC_TYPE_FAX,          //  000
               DOC_TYPE_DIR,          //  001
               DOC_TYPE_EMAIL,        //  010
               DOC_TYPE_TMAIL,        //  011
               DOC_TYPE_WAV,          //  100
               DOC_TYPE_EXT,          //  101
               DOC_TYPE_ADDR,         //  110
               DOC_TYPE_SMS,          //  111
               DOC_TYPE_UNKNOWN,      // 1000
               DOC_TYPE_SCHEDULE,     // 1001
               DOC_TYPE_ECT,          // 1010
               DOC_TYPE_LINK,         // 1011
 } TDocTypeEnum;

Die Entsprechung in Delphi ist:

Delphi-Quellcode:

type
  TSAMCond = record
               From, Treshold: Word;
  end;

  TSAMCondOld = record
               From, Treshold: Word;
  end;


  TLineSpecNo = (
               PL_G3,
               PL_FAXPLUS,
               PL_FAXIP,
               PL_EMAIL,
               PL_WAV,
               PL_TMAIL,
               PL_SMS,
               PL_ECT,
               PL_FAX_BCAST,
               PL_EMAIL_BCAST,
               PL_SMS_BCAST,
               PL_HOUSECTRL,
               PL_COUNT
              );

  TDocTypeEnum = (
               DOC_TYPE_FAX,          //  000
               DOC_TYPE_DIR,          //  001
               DOC_TYPE_EMAIL,        //  010
               DOC_TYPE_TMAIL,        //  011
               DOC_TYPE_WAV,          //  100
               DOC_TYPE_EXT,          //  101
               DOC_TYPE_ADDR,         //  110
               DOC_TYPE_SMS,          //  111
               DOC_TYPE_UNKNOWN,      // 1000
               DOC_TYPE_SCHEDULE,     // 1001
               DOC_TYPE_ECT,          // 1010
               DOC_TYPE_LINK         // 1011
              );

Einige der anderen Typdeklarationen lassen sich analog dazu übersetzen. Das Wort struct steht für "structure" und entspricht einem Record in Delphi, enum steht für "enumeration type", also Aufzählungstyp.

MfG
Binärbaum