Question

我正在尝试将Advantech（BDaqCL.pas）库添加到Delphi 5中的应用程序项目中，但.PAS文件中充斥着以下代码：

    AccessMode = (
  ModeRead = 0,
  ModeWrite,
  ModeWriteWithReset
);

导致错误：

',' or ')' expected but '=' found

这是Delphi后期版本在D5中不兼容的功能吗？如果是这样，值得手动改变每个人（有很多）或者我是否会遇到更深层次的问题呢？

编辑：大多数枚举如上所述，但也有很多更复杂的如下。手动做的太多了：

DioPortDir = (
  Input   = $00,
  LoutHin = $0F,
  LinHout = $F0,
  Output  = $FF
);

编辑：我正在开始将它们声明为常量的过程。任何人都可以告诉我，以下是否正确

var
    DioPortDir = LongInt;
const
      Input   = $00;
      LoutHin = $0F;
      LinHout = $F0;
      Output  = $FF;

我将列出 var 声明，并将 const 声明移至顶部。

我不确定当const不等于任何东西时该怎么办，例如

ValueRange = (
  V_OMIT = -1,            // Unknown when get, ignored when set
  V_Neg15To15 = 0,        // +/- 15 V
  V_Neg10To10,            // +/- 10 V
  V_Neg5To5,              // +/- 5 V
  V_Neg2pt5To2pt5,        // +/- 2.5 V
  V_Neg1pt25To1pt25,      // +/- 1.25 V
  V_Neg1To1,              // +/- 1 V

  V_0To15,                // 0~15 V
  V_0To10,                // 0~10 V
  V_0To5,                 // 0~5 V
  V_0To2pt5,              // 0~2.5 V
  V_0To1pt25,             // 0~1.25 V
  V_0To1,                 // 0~1 V

  mV_Neg625To625,         // +/- 625mV
  mV_Neg500To500,         // +/- 500 mV
  mV_Neg312pt5To312pt5,   // +/- 312.5 mV
  mV_Neg200To200,         // +/- 200 mV
  mV_Neg150To150,         // +/- 150 mV
  mV_Neg100To100,         // +/- 100 mV
  mV_Neg50To50,           // +/- 50 mV
  mV_Neg30To30,           // +/- 30 mV
  mV_Neg20To20,           // +/- 20 mV
  mV_Neg15To15,           // +/- 15 mV
  mV_Neg10To10,           // +/- 10 mV
  mV_Neg5To5,             // +/- 5 mV

  mV_0To625,              // 0 ~ 625 mV
  mV_0To500,              // 0 ~ 500 mV
  mV_0To150,              // 0 ~ 150 mV
  mV_0To100,              // 0 ~ 100 mV
  mV_0To50,               // 0 ~ 50 mV
  mV_0To20,               // 0 ~ 20 mV
  mV_0To15,               // 0 ~ 15 mV
  mV_0To10,               // 0 ~ 10 mV

  mA_Neg20To20,           // +/- 20mA
  mA_0To20,               // 0 ~ 20 mA
  mA_4To20,               // 4 ~ 20 mA
  mA_0To24,               // 0 ~ 24 mA

  // For USB4702_4704
  V_Neg2To2,              // +/- 2 V
  V_Neg4To4,              // +/- 4 V
  V_Neg20To20,            // +/- 20 V

  Jtype_0To760C = $8000, // T/C J type 0~760 'C
  Ktype_0To1370C,          // T/C K type 0~1370 'C
  Ttype_Neg100To400C,     // T/C T type -100~400 'C
  Etype_0To1000C,          // T/C E type 0~1000 'C
  Rtype_500To1750C,       // T/C R type 500~1750 'C
  Stype_500To1750C,       // T/C S type 500~1750 'C
  Btype_500To1800C,       // T/C B type 500~1800 'C

  Pt392_Neg50To150,       // Pt392 -50~150 'C
  Pt385_Neg200To200,       // Pt385 -200~200 'C
  Pt385_0To400,           // Pt385 0~400 'C
  Pt385_Neg50To150,       // Pt385 -50~150 'C
  Pt385_Neg100To100,      // Pt385 -100~100 'C
  Pt385_0To100,           // Pt385 0~100 'C  
  Pt385_0To200,           // Pt385 0~200 'C 
  Pt385_0To600,         // Pt385 0~600 'C 
  Pt392_Neg100To100,      // Pt392 -100~100 'C  
  Pt392_0To100,           // Pt392 0~100 'C 
  Pt392_0To200,           // Pt392 0~200 'C 
  Pt392_0To600,           // Pt392 0~600 'C 
  Pt392_0To400,           // Pt392 0~400 'C 
  Pt392_Neg200To200,      // Pt392 -200~200 'C  
  Pt1000_Neg40To160,      // Pt1000 -40~160 'C  

  Balcon500_Neg30To120,   // Balcon500 -30~120 'C  

  Ni518_Neg80To100,       // Ni518 -80~100 'C 
  Ni518_0To100,           // Ni518 0~100 'C 
  Ni508_0To100,           // Ni508 0~100 'C 
  Ni508_Neg50To200,       // Ni508 -50~200 'C 

  Thermistor_3K_0To100,   // Thermistor 3K 0~100 'C 
  Thermistor_10K_0To100,  // Thermistor 10K 0~100 'C 

  Jtype_Neg210To1200C,    // T/C J type -210~1200 'C
  Ktype_Neg270To1372C,    // T/C K type -270~1372 'C
  Ttype_Neg270To400C,     // T/C T type -270~400 'C
  Etype_Neg270To1000C,    // T/C E type -270~1000 'C
  Rtype_Neg50To1768C,     // T/C R type -50~1768 'C
  Stype_Neg50To1768C,     // T/C S type -50~1768 'C
  Btype_40To1820C,        // T/C B type 40~1820 'C

  Jtype_Neg210To870C,     // T/C J type -210~870 'C
  Rtype_0To1768C,         // T/C R type 0~1768 'C
  Stype_0To1768C,         // T/C S type 0~1768 'C

  // 0xC000 ~ 0xF000 : user customized value range type
  UserCustomizedVrgStart = $C000,
  UserCustomizedVrgEnd = $F000,

  // AO external reference type
  V_ExternalRefBipolar = $F001,  // External reference voltage unipolar
  V_ExternalRefUnipolar = $F002  // External reference voltage bipolar
);

正如你所看到的，我的工作已经完成，所以最好确保我先做好。感谢

Answer 1

Delphi 6中添加了此功能Enumerated Types with Explicitly Assigned Ordinality，这就是代码无法在Delphi 5中编译的原因。

在您的示例中，代码等同于

AccessMode = (
  ModeRead,
  ModeWrite,
  ModeWriteWithReset
);

你可以安全地使用它。我不太明白为什么代码的作者明确地将0分配给第一个序数，因为它对类型的含义没有影响。

如果您遇到明确设置最低值不为0的序数的代码，或者具有非连续的常规，则解决方法会更复杂。

请注意，在与外部事物进行互操作时，通常只需要明确设置常规，例如：文件格式，来自或来自其他库的调用。如果枚举类型的变量只存在于内存和代码中，那么你很可能并不关心它们具有什么样的正常性。

我不是100％确定为什么添加此功能但我似乎记得需要支持Kylix产品。

Answer 2

允许指定枚举成员值的语法是在Delphi 5之后引入的，可能是在Delphi 6中。
当更新的枚举保留相同的成员值（成员[0] = 0，成员[i] =成员[i - ]时，您应该在此处和类似位置仅用ModeRead = 0替换ModeRead 1] + 1）。

否则你应该用以下内容替换原来的枚举类型：

type
  AccessMode = Byte;
const
  ModeRead = 0;
  ModeWrite = 1;
  ModeWriteWithReset = 2;

注意= Byte。根据枚举成员的数量，它可能是：

1 ... 256 - ＆gt;字节
257 ... 2 ** 16 - ＆gt;字
2 ** 16 + 1 ... - ＆gt;长字

Answer 3

从D6或D7开始，你可以explicitly assign values to enumeration members。在您发布的情况下，只需删除= 0就可以解决您的问题。在更复杂的情况下this article可能会给你一些想法。

Delphi 5与库不兼容

3 个答案: