hur.cn - 华软网

 热门搜索

請問以下這段代碼在pb中如何賦值?

  作者:未知    来源:网络    更新时间:2017/9/26
interface
var
  BIG5Order: array[0..14757] of Word;

  BIG5Order[0] := $2020;
  BIG5Order[1] := $A3AC;
  BIG5Order[2] := $A1A2;
  BIG5Order[3] := $A1A3;

以上是delphi中的賦值,顯然,是在給一個數組賦十六進制的值!

請問,如何給BIG50rder[i]賦值十六制的值?
定義如下:long BIG5Order[0 to 14757]

------华软网友回答------
在線急等,高手們快幫幫手,pb中如何賦十六進的值?
------华软网友回复------
怎麼沒人知道?
------华软网友回复------
转换成十进制数
------华软网友回复------
delphi的word相当于pb的unsigned int吧,两个字节的,pb无法搞16进制的,赋值的话你还是先定义unsigned int数组,然后自己转成10进制往里写。
------华软网友回复------
先写个十六进制转十进制的函数吧,呵
------华软网友回复------
uInt BIG5Order[]
BIG5Order[0] = of_hex2long("2020")
BIG5Order[1] = of_hex2long("A3AC")
BIG5Order[2] = ...
BIG5Order[3] = ...

==========函数 of_hex2long()======================
[of_hex2long(as_hex) returns a long]
string ls_hex
integer i,length
long result = 0

length = len(as_hex)
ls_hex = Upper(as_hex)
FOR i = 1 to length
   result += &
     (Pos ('123456789ABCDEF', mid(ls_hex, i, 1)) * &
     ( 16 ^  ( length - i )  ))
NEXT
RETURN result
------华软网友回复------
如:WM_GETTEXT := $000D;

PB里声明

WM_GETTEXT = 13
------华软网友回复------
上面都说了,好象是没有!
楼主用这个去试试看!

~h001A

记住以下两个函数,你可能会用到的
IntHigh()
IntLow()


------华软网友回复------
上面都说了,好象是没有!
楼主用这个去试试看!

~H001A

记住以下两个函数,你可能会用到的
IntHigh()
IntLow()
     
华软声明:本内容来自网络,如有侵犯您版权请来信指出,本站立即删除。