1573
社区成员
Delphi怎么读出一段字节数值中的几个字节的十进制值
比如现在有这样的字节数组
D1|52|00|00|10|00|00|00|
前面四个字节是一个字段，我怎么读出他的十进制值？
请高手帮帮
D1|52|00|00|10|00|00|00|
前面四个字节是一个字段，我怎么读出他的十进制值？
请高手帮帮
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
jadeluo 2008-02-22
例如:
var
A : array[0..7] of Byte;
i : Integer;
begin
A[0] := $D1;
A[1] := $52;
A[2] := $00;
A[3] := $00;
A[4] := $10;
A[5] := $00;
A[6] := $00;
A[7] := $00;
i := PInteger(@A[0])^;
ShowMessage(IntToStr(i));
i := PInteger(@A[4])^;
ShowMessage(IntToStr(i));
end;
Delphi 二进制转换为十进制.rar Delphi7.0 如何将二进制转换为十进制呢?相信这个实例源码包会帮你大忙,用户输入任意二进制数,单击转换按钮,会立即显示出十进制数据. function TForm1.BintoOct(L: string): integer; var i, j, t: integer; ...
JAVA上百实例源码以及开源项目源代码 在有状态SessionBean中，用累加器，以对话状态存储起来，创建EJB对象，并将当前的计数器初始化，调用每一个EJB对象的count()方法，保证Bean正常被激活和钝化，EJB对象是用完毕，从内存中清除…… Java Socket 聊天...
十六进制转十进制(两个字节，最高位为符号位) 3、语言：delphi function NegativetoInt(const s: Integer): Integer; var a: Integer; b: Integer; c: Integer; d: Integer; begin a := s and $7FFF; b := not a; c := b and $7FFF; d := c + 1; ...
Delphi 字符串转字节数组 //字符串转成Unicode 存储在WideChar_Byte_Array字节数组中，存储的是十进制 Wide_Str := Ansi_Str; //转为Unicode SetLength(WideChar_Byte_Array, Length(Wide_Str) * sizeof(WideChar)); //字节数 = Unicode...
JAVA上百实例源码以及开源项目 在有状态SessionBean中，用累加器，以对话状态存储起来，创建EJB对象，并将当前的计数器初始化，调用每一个EJB对象的count()方法，保证Bean正常被激活和钝化，EJB对象是用完毕，从内存中清除…… Java Socket 聊天...
C#基础教程-c#实例教程，适合初学者 第一章 C#语言基础 本章介绍C#语言的基础知识，希望具有C语言的读者能够基本掌握C#语言，并以此为基础，能够进一步学习用C#语言编写window应用程序和Web应用程序。当然仅靠一章的内容就完全掌握C#语言是不可能的，...
测试开发笔记 第一章 测试基础 7 什么是软件测试： 7 ★软件测试的目的、意义：（怎么做好软件测试） 7 3.软件生命周期： 7 第二章 测试过程 8 1.测试模型 8 H模型： 8 V模型 9 2.内部测试 10 3外部测试： 10 验收测试：（在系统...
在Delphi下 IEEE32位浮点数到十进制Integer的相关转换和处理 其中一个因数为a（绝对值范围：1≤|a|），另一个因数为10^n（n是比A的整数部分少1的正整数）。 下面这个例子，就是float类型32bits数据转换的一个代表： ------------------------------------------ 例如...
将两个byte型拼接成16位二进制，再转化为十进制 //一个16位整形变量，初值为 0000 0000 0000 0000 byte b1 = 1; //一个byte的变量，作为转换后的高8位，假设初值为 0000 0001 byte b2 = 2; //一个byte的变量，作为转换后的低8位，假设初值为 0000 0010 s = ...
delphi 十六进制转十进制 //需引用Math单元，Decjg 需定义成全局变量 function TFrm_Main.HextoDec(s:string):Double; var strlen:integer;... 注：以上函数是两个字符做为一个字节，若一个字符一个字节，需要将div 2去掉
Delphi 中string字符串转换Byte[]字节数组 //字符串转成Unicode 存储在WideChar_Byte_Array字节数组中，存储的是十进制 Wide_Str := Ansi_Str; //转为Unicode SetLength(WideChar_Byte_Array, Length(Wide_Str) * sizeof(WideChar)); //字节数 = ...
Delphi 字节位操作 位操作 说明 and 按位与，对操作数的二进制数按位与 ...按位取反，对操作数的二进制数按位取反 ...字节型变量 a 和 b，它们的值分别为：00000101 和 00000110，即十进制中的 5 和 6 a：00000101 b：000...
两字节16进制转十进制实例dlphi、c++ delphi ---------------------------------------- var ii: SmallInt ; begin ss[1] := Char($FF); ss[2] := Char($CA); ii := word(ss[1]) *256+ word(ss[2]); edt1.Text := FormatFloat('0.00', ...
delphi十六进制字符串hex转byte数组 //自定义函数，转换十六进制数为十进制数 function HexToInt(Hexa: string): LongWord; const ValoresHexa: array['A'..'F'] of integer = (10, 11, 12, 13, 14, 15); var nDecimal: LongWord; nIndex: byte; begin...
Delphi中的进制转换
1.HexToBin() 十六进制转换二进制
所在单元：Classes
Delphi语法：
<br />
function HexToBin(Text...
Text是一个表示十六进制值的字符串。
Buffer返回转换后的二进制结果值。<br
两个字节,如果写入一个大于65535的数? 两个字节,如果写入一个大于65535的数? Delphi / Windows SDK/APIhttp://www.delphi2007.net/DelphiBase/html/delphi_20061220165725103.html 正常情况下FFFF为65535,如何突破呢? 突破不了了,想办法改成四个字节...
bcc校验(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 buffer[i];...-------------------...
