如何用delphi表示如下VB编的语句?(100分)

  • 主题发起人 主题发起人 shy_cm
  • 开始时间 开始时间
S

shy_cm

Unregistered / Unconfirmed
GUEST, unregistred user!
如何用delphi表示如下VB语句
private const devicetimeout=&he3010000
 
implementation
const DeviceTimeout=xxxx
 
您的意思是否是&he3010000 可以是任何自定义的值?
 
你希望TimeOut是多少?
 
这是一个设备驱动程序中的一些错误信息定义, 不清楚是否是内存值,每个错误信息
都用的是&HExxxxxx来表示。
 
如果是自定义错误信息,那就随便你,
如果是驱动程序的错误信息,你定义的常量又有什么用?
 
xxxx是只要编译器可以求值的就可以。
如:
const
Min = 0;
Max = 100;
Center = (Max - Min) div 2;
Beta = Chr(225);
NumChars = Ord('Z') - Ord('A') + 1;
Message = 'Out of memory';
ErrStr = ' Error: ' + Message + '. ';
ErrPos = 80 - Length(ErrStr) div 2;
Ln10 = 2.302585092994045684;
Ln10R = 1 / Ln10;
Numeric = ['0'..'9'];
Alpha = ['A'..'Z', 'a'..'z'];
AlphaNum = Alpha + Numeric;
抄的HELP。
 
哦,那就这样定义:
const DeviceTimeout=$E3010000;
DeviceTimeout2=$E3020000;
 
哎! o*o说了半天废话,就最后一句才说到点子上:<font color=red> &amp;h -&amp;gt;
$</font>
:-)
 
cAkk,我的理解能力比较差,唉,笨哪。
 
多人接受答案了。
 
后退
顶部