张志峰的博客

水滴石川，积少成多。

导航

2016年5月25日

在delphi中，如何把十进制数转换为十六进制整形数。若用inttohex只能转化为十六进制字符串。

摘要： var b: Byte; s: string;begin s := '31'; //16进制字符串 b := StrToInt('$' + s);end; 不过要注意一点，如果在程序调试时想看b的值，看到的将会是10进制的值 阅读全文

posted @ 2016-05-25 15:07 ╰★张志峰★╮ 阅读(1204) 评论(0) 推荐(0)

Delphi 异或校验方法

摘要： //数据异或校验function BytesXor(buffer:array of byte):Integer;var i:integer;begin Result:=$0; for i:=Low(buffer) to High(buffer) do begin result:=result xor 阅读全文

posted @ 2016-05-25 13:56 ╰★张志峰★╮ 阅读(2758) 评论(0) 推荐(0)

delphi 按位运算 not and or xor shl shr

摘要： delphi 按位运算 not and or xor shl shr delphi 按位运算 not and or xor shl shr unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graph 阅读全文

posted @ 2016-05-25 10:58 ╰★张志峰★╮ 阅读(3018) 评论(0) 推荐(0)

求用delphi编写的LRC校验位算法函数，急！！！

摘要： 求用delphi编写的LRC校验位算法函数，急！！！ 某命令串为":010200000001FC" 其16进制为“3A 30 31 30 32 30 30 30 30 30 30 30 31 46 43 0D 0A”。其中第一个为起始符，2-13为数据，14-15即“FC”为LRC校验码，有人能写一 阅读全文

posted @ 2016-05-25 10:52 ╰★张志峰★╮ 阅读(1009) 评论(0) 推荐(0)

怎么把一个整数转化为3个十六进制字节 delphi

摘要： 如何把一个整数转化为3个十六进制字节 delphi比如把整数149259(都是6位数据整型数) 转换为十六进制为2470B然后再分开为三个字节02 47 0B,求实现代码示例var ID: Integer; ByteBuf: array[0..2] of Byte;begin ID := 14925 阅读全文

posted @ 2016-05-25 09:49 ╰★张志峰★╮ 阅读(558) 评论(0) 推荐(0)