常见人家Byte(这里放一个变量),这样操作是得到一个Byte类型的数值吗?还有如果:
...
var A:integer;B:Byte;
A:=999;
B=Byte(A);
Showmessage(inttostr(B));//打印出来的会是一个溢出后的数据,这个数据是怎样算出来的呢?就是说Byte()这个函数怎么用的啊?我百度不到它的用法...
...
var A:integer;B:Byte;
A:=999;
B=Byte(A);
Showmessage(inttostr(B));//打印出来的会是一个溢出后的数据,这个数据是怎样算出来的呢?就是说Byte()这个函数怎么用的啊?我百度不到它的用法...
解决方案 »
- 为什么ADOQuery.Locate查找不到纪录?
- 关于C/S结构,连接sql server2000,一定要安装mdac吗?
- 三喜合一,散分!
- 如何使label的caption分两行??
- 关于库存方面的delphi源程序
- 请问:“Tab”键的Key :char 是多少?
- 将数据倒入excel用ole的createoleobject在那个单元亚?还有那有excelapplication???
- 请问,如何知道一个程序是由用户关闭的(用鼠标点右上角的X〕,还是由系统发消息关闭的?
- 急!如何实现对DBCHAR控件设计的图表进行打印预览?
- 如何用Tdatabase与Access数据库文件连接,我是一位delphi初学者,麻烦您详细讲一下
- 调用outlook2003?
- 我想定义是HWND和DWORD这两个类型的变量.但是用uses会出错...
b=Byte(A)等价于 b=a mod 256
buf : array[0..1] of byte;
bus : array[0..3] of byte;
function ByteToHex(InByte:byte):shortstring;
const Digits:array[0..15] of char='0123456789ABCDEF';
begin
result:=digits[InByte shr 4]+digits[InByte and $0F];
end;
function BinArrayToString(aArray: array of Byte): string;
var
i: integer;
begin
result:='';
for i:= Low(aArray) to High(aArray) do
begin
result:= result + ByteToHex(aArray[i]);
end;
Result:= IntToStr(StrToInt('$'+result));
end;
begin
buf[0] := $01;
buf[1] := $02;
showmessage(BinArrayToString(buf));
bus[0] := $00;
bus[1] := $01;
bus[2] := $02;
bus[3] := $03;
showmessage(BinArrayToString(bus));
end;