再谈指针运算和地址加减运算的区别

先上代码，有下面一段代码：

//下面是读取线状目标的记录内容的代码：
procedure OnReadLineShp(ShpFileName:String);
var
  FileHandle:integer;
  RecordNumber:integer;
  ContentLength:integer;
  num:integer;
  shapeType:integer;
  Box:array[0..3]of double;
  NumParts:integer;
  NumPoints:integer;
  Parts:^Integer;
  addr:Integer;
  i,j:integer;

  pointNum:integer;
  PointsX:^double;
  PointsY:^double;
begin
       // 打开坐标文件
       FileHandle:=FileOpen(ShpFileName,fmOpenRead);
       // 读取坐标文件头的内容开始
       FileSeek(Filehandle,100,0);
       // 读取线状目标的实体信息

       num   :=0;
       while((FileRead(FileHandle,RecordNumber,    sizeof(int))<>0))do
       begin
              FileRead(FileHandle,ContentLength,sizeof(int));
              RecordNumber      := OnChangeByteOrder (RecordNumber);
              ContentLength       := OnChangeByteOrder (ContentLength);

              FileRead(FileHandle,shapeType,    sizeof(int));   // 读 Box
              for i:=0 to 3 do
                     FileRead(FileHandle,Box[i],     sizeof(double));   // 读 NumParts 和 NumPoints
              FileRead(FileHandle,NumParts,     sizeof(int));
              FileRead(FileHandle,NumPoints,    sizeof(int));   // 读 Parts 和 Points
              GetMem(parts,sizeof(integer)*NumParts);//parts=$65B78, parts^=0x65B64(416612)
              //new(parts);
              for i:=0 to NumParts-1 do
              begin
                //FileRead(FileHandle,Integer(Parts)+i,   sizeof(int));
                //FileRead(FileHandle,PInteger(Integer(Parts)+i),   sizeof(int));//错误，第二个参数PInteger(Integer(Parts)+i)表示的是一个地址，
                //addr:=Integer(Parts)+i;//0.9.30版本竟然不支持上面的强制转换,要用中间变量转一下??? 其是是自已错了，对指针不熟，FileRead的第二个参数应为一个buffer缓冲区，而不是一个指针变量,
                //其实用这个语句就行，不用下面的中间变量转换：FileRead(FileHandle,PInteger(PInteger(Parts+i))^,   sizeof(int));


                addr:=Integer(PInteger(Parts+i));//把Parts指针分配到的地址赋给addr,!!!!!!!!!!!!!!!更奇怪的是addr竟然不等于parts的值:$65B78, 而是等于416632(0x65B78),^_^,等于，看错了!!!
                //FileRead(FileHandle,PInteger(addr),   sizeof(int));//这里实际上是把内容读到了addr变量中
                FileRead(FileHandle,PInteger(addr)^,   sizeof(int));//而要用这个式子才正确，把内容读到addr代表的地址指向的空间中
                //FileRead(FileHandle,Parts,   sizeof(int));
              end;

              for i:=0 to NumParts-1 do
              begin
                     if(i<>NumParts-1)then
                            //pointNum       :=Parts[i+1]-Parts[i]
                           // pointNum       :=PInteger(Integer(Parts)+i+1-(Integer(Parts)+i) )^//错误

                           pointNum       :=PInteger(Parts+i+1)^-PInteger(Parts+i)^//正确
                     else
                            //pointNum       :=NumPoints-PInteger(Integer(Parts)+i)^;//错误，这里变成了地址加i,而不是指针加i,
                            pointNum       :=NumPoints-PInteger(PInteger(Parts+i))^;//正确

                     //PointsX =new double[pointNum];
                     GetMem(PointsX,sizeof(double)*pointNum); //PointsX=$127728
                     GetMem(PointsY,sizeof(double)*pointNum); //PointsY=$1277A8
                for j:=0 to pointNum-1 do
                     begin
                       //inc(PointsX); //$127730
                       //addr:= Integer(PointsX)+j;//错误，addr的值应该为下一个PointX的地址:$127730,而这里变成$127728+1=$127729，
                       addr:= Integer(PInteger(PointsX+j));//应该使用该语句，先用指针变量加j, 然后转换为Integer整型就可以了，或者先用上面的Inc(PointsX)语句先把指针指向下一个地址，再直接赋值；
                       FileRead(FileHandle,PDouble(addr)^, sizeof(double));
                       addr:=Integer(PointsY)+j;
                       FileRead(FileHandle,PDouble(addr)^, sizeof(double));
                     end;
                     FreeMem(PointsX);
                     FreeMem(PointsY);
              end;
              FreeMem(Parts);
       end;
       FileClose(FileHandle);
end;

  总结，根据上面的分析，在使用指针时，自已的头脑中一定要清楚：指针变量加减一个数和地址加减一个数是不同的，如果一个浮点数指针变量PointsX的地址为$127728，则PointX+1表示的地址是$127730,代表下一个浮点数的开始地址（假设PointX是一组连续浮点数的开始地址），因为一个浮点数点8个字节的空间，$127728+8=$127730,而如果 Integer(PointsX)+1，则表示的地址为$127729，是把$127728这个地址进行了加1的操作；