Question

考虑这段代码：

program test;
uses crt;

var ptr1, ptr2:^integer;

begin
     new(ptr1);
     new(ptr2);
     writeln('ptr1: ',integer(@ptr1), ', ptr2: ', integer(@ptr2));
     ptr1:=ptr2;
     write('ptr1: ',integer(@ptr1), ', ptr2: ', integer(@ptr2));
     readln;
end.

第二次'写'应该为ptr1和ptr2提供相同的结果，但它给出了（lazarus - free pascal）：

ptr1: 4243456, ptr2: 4243472
ptr1: 4243456, ptr2: 4243472

在我看来应该是：

ptr1: 4243472, ptr2: 4243472

我对指针完全不熟悉。我理解错了吗？

问候。

Answer 1

当你编写@ ptr1时，你没有访问指针，而是创建一个指向ptr的新指针。（pascal不像带有可变前缀的perl）

写作时

 writeln('ptr1: ',integer(ptr1), ', ptr2: ', integer(ptr2));
 ptr1:=ptr2;
 write('ptr1: ',integer(ptr1), ', ptr2: ', integer(ptr2));

，你得到了你的期望

（但最好使用PtrInt而不是整数，因为整数仅适用于32位系统）

Answer 2

这是如何为pascal

中的指针赋值

ptr1 ^：= 100; writeln（＆＃39; ptr1：＆＃39;，整数（ptr1 ^），＆＃39;，ptr2：＆＃39;，整数（@ptr2））;

指针（pascal） - 我无法将一个指针指向另一个指针

2 个答案: