16,741
社区成员
发帖
与我相关
我的任务
分享下列指针理解得对吗？
var
P: ^Integer;
X: Integer;
begin
P := @X;
// change the value in two different ways
X := 10;
P^ := 20;
P的地址值=X的地址值
X的值=10
最后，指针P地址存放的内容为20
P: ^Integer;
X: Integer;
begin
P := @X;
// change the value in two different ways
X := 10;
P^ := 20;
P的地址值=X的地址值
X的值=10
最后，指针P地址存放的内容为20
...全文
请发表友善的回复…
发表回复
luke5678 2004-08-26
- 打赏
- 举报
procedure TForm1.Button2Click(Sender: TObject);
var
P: ^Integer;
X: Integer;
begin
P := @X;
// change the value in two different ways
X := 10;
ShowMessage(IntToStr(X));
P^ := 20;
ShowMessage(IntToStr(X));
end;
这样不就知道了吗???
var
P: ^Integer;
X: Integer;
begin
P := @X;
// change the value in two different ways
X := 10;
ShowMessage(IntToStr(X));
P^ := 20;
ShowMessage(IntToStr(X));
end;
这样不就知道了吗???
