|
|
导航: |
论坛 -> DELPHI技术
斑竹:liumazi,sephil |
|
作者: |
|
2004/7/19 17:55:46 |
标题: |
|
加入我的收藏 |
楼主: |
请教各位大虾:我想在Byte类型数组中取出相邻元数内容后,再将其转换成两字节长整数!我该如何实现呀? 如: bdata[0]:=$01; bdata[1]:=$01;要将这两个数据组合成两字节的整数得到:257
----------------------------------------------
- |
作者: |
|
2004/7/19 18:11:44 |
1楼: |
Delphi6下通过:
procedure TForm1.Button1Click(Sender: TObject); var iValue: Integer; begin bdata[0] := 1; bdata[1] := 1; iValue := bdata[0]; iValue := iValue shl 8 + bdata[1]; ShowMessage(IntToStr(Integer(bdata[0])) + ',' + IntToStr(Integer(bdata[1])) + ',' + IntToStr(iValue)); end;
----------------------------------------------
-广袤璀璨的银河,永无止境的梦想(梦无止境游银河) 博客挂了……
|
|