刚刚在群里看到一个这样的问题

MonoPixel: PByte;

Inc(Integer(MonoPixel));这个在32位下没问题,为啥64位不能编译呢?

 

咋一看,以为是把里面的值进行累加,后来一想应该是移动一下指针。

对于这种移动指针的做法有两个错误:

第一个是用了Integer,来转换指针如果在32位下面显然是没有问题的,但是如果是64位,指针是64位,显然再用Integer是错误的。

第二个转换成Ineger后加一,那就相当于整数值 + 1,在PByte时没有问题,因为Byte也是一个字节。但是如果是PInteger指针就会出现错误。

 

我们来看下代码:

如果是PInteger下面应该怎么样做:

var
  p, d:PInteger;
  x : array [0..10] of Integer;
begin
  x[5] := 120;
  p := @x;
  d := p;
  Inc(d, 5);

 

首先所有的指针都是一个整数值

【杂谈指针】- 指针的移动_指针移动

可以看到如果用inc移动指针,并且会按照指针的类型进行累加,上面PInteger类型Inc后是增加的SizeOf(Integer)。指向数组的下一个元素。

如果单纯的转换成整数来 + 1会 指针的值就是$12EA75显然不是指向下一个元素。当然你取到的值也是错误的。如下面的图

【杂谈指针】- 指针的移动_指针基础_02

显然d^不是我们想要的数据。

 

除了用inc,也可以这样做,下面的做法也是正确的。

【杂谈指针】- 指针的移动_Delphi指针_03

请操作指针的朋友们注意啦。

 

*以上代码在XE6下面测试运行

 

*注意没有IntPtr类型的可以自己定义下类型

type

   IntPtr = cardinal

 

==========================================

DIOCP官方社区|MyBean官方社区

http://www.diocp.org/