先上代码,有下面一段代码:
//下面是读取线状目标的记录内容的代码:
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的操作;