文档章节

将 4 个 Byte 合成 1 个 Integer 的五种方法 - 回复 "三足乌" 的问题

涂孟超
 涂孟超
发布于 2014/09/26 15:35
字数 230
阅读 1
收藏 0

问题来源: http://www.cnblogs.com/del/archive/2010/04/21/1717584.html#1809298

//方法 1: 共用内存
procedure TForm1.Button1Click(Sender: TObject);
var
  bf: record b1,b2,b3,b4: Byte end;
  i: Integer absolute bf;
begin
  bf.b1 := $CC;
  bf.b2 := $DD;
  bf.b3 := $EE;
  bf.b4 := $FF;
  ShowMessageFmt('%x', [i]); //FFEEDDCC
end;

//方法 2: 位运算
procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
begin
  i := $CC or ($DD shl 8) or ($EE shl 16) or ($FF shl 24); //不用括号也可
  ShowMessageFmt('%x', [i]); //FFEEDDCC
end;

//方法 3: 使用函数
procedure TForm1.Button3Click(Sender: TObject);
var
  i: Integer;
begin
  i := MakeLong(MakeWord($CC,$DD), MakeWord($EE,$FF));
  ShowMessageFmt('%x', [i]); //FFEEDDCC
end;

//方法 4: 从静态数组...
procedure TForm1.Button4Click(Sender: TObject);
var
  bs: array[0..3] of Byte;
  P: PInteger;
begin
  bs[0] := $CC;
  bs[1] := $DD;
  bs[2] := $EE;
  bs[3] := $FF;
  P := @bs;
  ShowMessageFmt('%x', [P^]); //FFEEDDCC
end;

//方法 5: 从动态数组...
procedure TForm1.Button5Click(Sender: TObject);
var
  bs: array of Byte;
  P: PInteger;
begin
  SetLength(bs, 4);
  bs[0] := $CC;
  bs[1] := $DD;
  bs[2] := $EE;
  bs[3] := $FF;
  P := @bs[0];
  ShowMessageFmt('%x', [P^]); //FFEEDDCC
end;

 
 
 
 
 

 

 

  

本文转载自:http://www.cnblogs.com/del/archive/2010/04/24/1719378.html

共有 人打赏支持
涂孟超
粉丝 12
博文 2011
码字总数 14107
作品 0
深圳
程序员
私信 提问
二进制串反转 Reverse Bits

问题: Reverse bits of a given 32 bits unsigned integer. For example, given input 43261596 (represented in binary as 00000010100101000001111010011100), return 964176192 (represe......

叶枫啦啦
2017/08/22
0
0
LeetCode算法题-Power of Four(Java实现-六种解法)

这是悦乐书的第205次更新,第216篇原创 01 看题和准备 今天介绍的是LeetCode算法题中Easy级别的第72题(顺位题号是342)。给定一个整数(带符号的32位),写一个函数来检查它是否为4的幂。例...

小川94
2018/12/18
0
0
数据类型转换(转自CSDN)

int i = 100; long l = 2001; float f=300.2; double d=12345.119; char username[]=”程佩君”; char temp[200]; char *buf; CString str; _variant_t v1; _bstr_t v2; 一、其它数据类型转换......

文艺小青年
2017/06/29
0
0
Netty模拟redis服务器

Redis的客户端与服务端采用叫做 RESP(Redis Serialization Protocol)的网络通信协议交换数据,客户端和服务器通过 TCP 连接来进行数据交互, 服务器默认的端口号为 6379 。客户端和服务器发送...

ksfzhaohui
2016/08/28
3.7K
10
你真的了解Java中的位操作?

位操作谜题 下面这行代码会输出什么? 一个byte占8位,再和8位都为1的0xff与操作,那么结果应该是它本身才对,可是运行上面的代码输出却是255。要想读懂上面的代码,首先我们要弄清楚以下几个...

joymufeng
2016/10/31
43
0

没有更多内容

加载失败,请刷新页面

加载更多

mybaties中通用mapper的基本使用

使用Mybatis的开发者,大多数都会遇到一个问题,就是要写大量的SQL在xml文件中,除了特殊的业务逻辑SQL之外,还有大量结构类似的增删改查SQL。而且,当数据库表结构改动时,对应的所有SQL以及...

嘴角轻扬30
27分钟前
1
0
都996了,研发效能还是提不起来,关键在这里

上一篇我们介绍了研发效能提升目标及其度量方法。(本文是阿里“研发效能提升系列”的第2篇,第1篇“研发效能的定义和度量”敬请期待【下周三】的钉钉群直播:钉钉搜索群号 23192180) 研发效...

zhaowei121
27分钟前
2
0
阿里重磅开源首款自研科学计算引擎Mars,揭秘超大规模科学计算

日前,阿里巴巴正式对外发布了分布式科学计算引擎 Mars 的开源代码地址,开发者们可以在pypi上自主下载安装,或在Github上获取源代码并参与开发。 此前,早在2018年9月的杭州云栖大会上,阿里...

阿里云云栖社区
30分钟前
2
0
大牛是怎么思考设计SQL优化方案的?

在进行MySQL的优化之前,必须要了解的就是MySQL的查询过程,很多查询优化工作实际上就是遵循一些原则,让MySQL的优化器能够按照预想的合理方式运行而已。 图-MySQL查询过程 一、优化的哲学 ...

Java填坑路
38分钟前
1
0
docker1.7 Error: Path not specified 错误

在centos6.1上,用yum命令安装的docker版本是1.7 。在拷贝文件的时候报 Error: Path not specified错误。 错误消息“错误:路径未指定” 在docker1.8.0中已修复。 修复方法: 直接下载1.9.1...

applepaihs
39分钟前
4
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部