文档章节

将 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
数据类型转换(转自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
VC++常用数据类型及其操作详解

一.VC常用数据类型列表 二.常用数据类型转化 2.1数学类型变量与字符串相互转换 2.2 CString及string,char 与其他数据类型的转换和操作 ●CString,string,char的综合比较 ●数学类型与CString...

晨曦之光
2012/03/09
0
0
Netty模拟redis服务器

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

ksfzhaohui
2016/08/28
3.7K
10
VC++常用数据类型及其操作详解(非常经典,共同分享)

友情提示: 为了方便你更好的学习和阅读,也更好的体现尊重原创作者的劳动成果,请您直接查看转载原本链接: http://snailflying.blog.hexun.com/8219350d.html ==========================...

长平狐
2013/01/06
1K
0

没有更多内容

加载失败,请刷新页面

加载更多

你为什么在Redis里读到了本应过期的数据

一个事故的故事 晚上睡的正香突然被电话吵醒,对面是开发焦急的声音:我们的程序在访问redis的时候读到了本应过期的key导致整个业务逻辑出了问题,需要马上解决。 看到这里你可能会想:这是不...

IT--小哥
今天
2
0
祝大家节日快乐,阖家幸福! centos GnuTLS 漏洞

yum update -y gnutls 修复了GnuTLS 漏洞。更新到最新 gnutls.x86_64 0:2.12.23-22.el6 版本

yizhichao
昨天
5
0
Scrapy 1.5.0之选择器

构造选择器 Scrapy选择器是通过文本(Text)或 TextResponse 对象构造的 Selector 类的实例。 它根据输入类型自动选择最佳的解析规则(XML vs HTML): >>> from scrapy.selector import Sele...

Eappo_Geng
昨天
4
0
Windows下Git多账号配置,同一电脑多个ssh-key的管理

Windows下Git多账号配置,同一电脑多个ssh-key的管理   这一篇文章是对上一篇文章《Git-TortoiseGit完整配置流程》的拓展,所以需要对上一篇文章有所了解,当然直接往下看也可以,其中也有...

morpheusWB
昨天
5
0
中秋快乐!!!

HiBlock
昨天
3
0

没有更多内容

加载失败,请刷新页面

加载更多

返回顶部
顶部