转换 Byte 数组到 ... - 回复高群的问题

为什么80%的码农都做不了架构师？>>>

问题来源: http://www.cnblogs.com/del/archive/2009/03/21/1410030.html#1483614

{转换 TBytes 到 Integer}
procedure TForm1.Button1Click(Sender: TObject);
varbs: TBytes; {TBytes 就是 Byte 的动态数组}i: Integer;
begin{它应该和 Integer 一样大小才适合转换}SetLength(bs, 4);bs[0] := $10;bs[1] := $27;bs[2] := 0;bs[3] := 0;{因为 TBytes 是动态数组, 所以它的变量 bs 是个指针; 所以先转换到 PInteger}i := PInteger(bs)^;ShowMessage(IntToStr(i)); {10000}
end;{从 Bytes 静态数组到 Integer 的转换会方便些}
procedure TForm1.Button2Click(Sender: TObject);
varbs: array[0..3] of Byte;i: Integer;
beginbs[0] := $10;bs[1] := $27;bs[2] := 0;bs[3] := 0;i := Integer(bs);ShowMessage(IntToStr(i)); {10000}
end;{转换到自定义的结构}
procedure TForm1.Button3Click(Sender: TObject);
typeTData = packed recorda: Integer;b: Word;end;
varbs: array[0..5] of Byte; {这个数组应该和结构大小一直}data: TData;
beginFillChar(bs, Length(bs), 0);bs[0] := $10;bs[1] := $27;data := TData(bs);ShowMessage(IntToStr(data.a)); {10000}
end;{转换给自定义结构的一个成员}
procedure TForm1.Button4Click(Sender: TObject);
typeTData = packed recorda: Integer;b: Word;end;
varbs: array[0..3] of Byte;data: TData;
beginFillChar(bs, Length(bs), 0);bs[0] := $10;bs[1] := $27;data.a := Integer(bs);ShowMessage(IntToStr(data.a)); {10000}
end;

转载于:https://my.oschina.net/hermer/blog/319582

转换 Byte 数组到 ... - 回复高群的问题相关推荐

jQuery ajax 传递JSON数组到Spring Controller
jQuery ajax传递单个JSON对象到后台很容易,这里记录的是传递多个JSON对象组成的JSON数组到java 后台,并说明java如何解析JSON数组. 1.js代码 var relation ...
php input 数组的值,如何获取2值表单输入数组到PHP数组中(How to get 2 value form input array into PHP array)...
如何获取2值表单输入数组到PHP数组中(How to get 2 value form input array into PHP array) 我有一个输入: 我可以在PHP端获得$opt_id值: ...
java数组更新_java刷新数组到jList
好吧,所以我有一个JList和内容提供了一个数组.我知道如何将元素添加到数组,但我想知道如何刷新JList ...或者甚至有可能吗?我试过谷歌. :\java刷新数组到jList import jav ...
C#中如何将字符串转换byte[]，同时如何将byte[]换成字符串?
C#中如何将字符串转换byte[],同时如何将byte[]换成字符串? 博客分类: C# CC++C# 1 string to byte [] string str = ...
JS中，如何判断一个被转换的数是否是NaN
var x="abc";//isNaN()函数判断是否是NaNif (isNaN(parseInt(x))) {alert("非数字");} else{aler ...
从原理到实践，手把手带你轻松get数仓双集群容灾
摘要:本文通过介绍双集群的架构.log结构.分析步骤来介绍双集群容灾的问题分析方法. 本文分享自华为云社区<从原理到实践,手把手带你轻松get数仓双集群容灾>,原文作者:Puyol . 双 ...
jquery ajax json传递数组,jQuery ajax 传递JSON数组到Spring Controller
jQuery ajax传递单个JSON对象到后台很容易,这里记录的是传递多个JSON对象组成的JSON数组到java 后台,并说明java如何解析JSON数组. 1.js代码 var relation ...
题目：用D触发器带同步高置数和异步高复位端的二分频的电路，画出逻辑电路，Verilog描述。
题目:用D触发器带同步高置数和异步高复位端的二分频的电路,画出逻辑电路,Verilog描述. reg Q; always @(posedge clk or posedge rst)begin if(r ...
二进制数转换十进制数；技巧Part1；Python
二进制数转换十进制数:方法及内容如下: 操作方式如图(操作软件是Python) print(int('011001010011110',2)) 输入二进制数,输出十进制数. 其他方法正整数转成二进制 ...

转换 Byte 数组到 ... - 回复高群的问题

转换 Byte 数组到 ... - 回复高群的问题相关推荐

最新文章

热门文章

转换 Byte 数组到 ... - 回复 高群 的问题

转换 Byte 数组到 ... - 回复 高群 的问题相关推荐

最新文章

热门文章

转换 Byte 数组到 ... - 回复高群的问题

转换 Byte 数组到 ... - 回复高群的问题相关推荐