最近编写一个通信协议的软件 其中需要把从软件界面取的整数转换成16进制数并将转换完的结果高低位分开分别放到动态数组的两个位中,这是我编写的一段代码
procedure TForm1.Button3Click(Sender: TObject);
var
ByteArray:array of byte;
buf: variant;
begin
buf:=VarArrayCreate([0,0], varByte);
SetLength(ByteArray, 3);//初始化ByteArray
ByteArray[0]:=$02;
ByteArray[1]:=??;
ByteArray[2]:=??;
buf:=ByteArray;
MSComm1.output:=buf;
sleep(500);
end;
我就是想将转化完的数的高位放到ByteArray[1]中低位放到ByteArray[2]中,从界面读取的数值是从1到256*256的范围内的
不知道我说的够不够 详细请高手指点
procedure TForm1.Button3Click(Sender: TObject);
var
ByteArray:array of byte;
buf: variant;
begin
buf:=VarArrayCreate([0,0], varByte);
SetLength(ByteArray, 3);//初始化ByteArray
ByteArray[0]:=$02;
ByteArray[1]:=??;
ByteArray[2]:=??;
buf:=ByteArray;
MSComm1.output:=buf;
sleep(500);
end;
我就是想将转化完的数的高位放到ByteArray[1]中低位放到ByteArray[2]中,从界面读取的数值是从1到256*256的范围内的
不知道我说的够不够 详细请高手指点
解决方案 »
- 如何根据字符串创建类的实例?
- 请教:怎样在程序中取得系统环境变量的值?
- 请问如何用ADO连接有密码的ACCESS数据库.
- 如何将下面的简单的文件读写代码改成同样功能的流的读写?主要考虑到大的日志LOG文件还采用一行一行的读写效率太低了。谢谢
- ado小问题,!
- 如何在程序中得到,sqlserver数据表的每一列的描述
- 如何将一个位图对象打印出来?怎么大小不一样?
- 在用DELPHI的DESKTOP建立数据表时,怎样录入外部关建字
- adoquery1在执行查询时显示错误:adoquery1:field 'myID' not find.是怎么回事?
- 求网络监控软件源码或外包开发.
- delphi软件哪个版本最好?
- 我想在form窗体中按F3键就弹出一个对话框,请问怎样实现?
ByteArray[1]:= num div 256;
ByteArray[2]:= num mod 256;
ByteArray[2]:= num and $ff;