有关指针的疑问??(10分)

AKang · 2000-04-26

程序段如下: procedure TForm1.Button1Click(Sender: TObject); var   I:Integer;   Pi:^Integer; begin   I:=10;   showmessage(format('%p',[@i]));   Pi:=Ptr($68f370);   Pi^:=5;   showmessage(IntToStr(I)); end; 说明： 这个程序是这样，我首先用showmessage得出I的地址,如我的程序中测试得出的是$68f370,然后加上showmessage后面的语句。 疑问如下： 1.如上面，如果我后来不用第一个showmessage语句，程序会出错。 2.如果我在按钮上按回车键，第二个showmessage语句等出的是10，但如果用鼠标按，又得出我所期望的值5. 这个程序我只为测试，但上面的问题，真令人困惑，请高手赐教!!

Jams · 2000-04-26

>>

Nose · 2000-04-26

怎么我的测试没有问题？你有没有改变Delphi的编译选项?

Shao.K · 2000-04-26

//如此更改 //回车和鼠标按键所分配的地址不同 procedure TForm1.Button2Click(Sender: TObject); var   I:Integer;   Pi:^Integer; begin   I:=10;   showmessage(format('%p',[@i]));   Pi:=@i;   Pi^:=5;   showmessage(IntToStr(I)); end;

flyinsky · 2000-04-26

to AKang: 1.不用第一个SHOWMESSAGE（）当然出错，你还没有给I 负指针呢。     @ 操作符返回变量的地址，也就是为他的操作数附地址值。    在showmessage里，虽然作为参数传递，但同时也做了@操作。 2. 同意：Shao.K。

SuperMMX · 2000-04-27

1，每一次运行，i 可能不一样，     @是取地址操作，不会对 i 有改变。 2，不知道， 最好别在 delphi 中这样，错了都不知道什么错。

Pipi. · 2000-04-29

I是处于堆栈中，按回车和按鼠标程序的经过不同，使用堆栈也不同，$68f370只是 某种情况下i处于的地址，改变了程序的执行，堆栈的使用就不同，$68f370就不是 你想象的地方了

SuperMMX · 2000-04-29

Pipi 终于又来了。呵呵，这一下，沈前卫当不了第一了。

huizhang · 2000-04-30

I是一个局部变量,每次运行该过程重新分配I的地址,不管鼠标还是回车都有可能改变, 第一次运行得到的地址第二次就不一定是同一个地址了. 如果改写成下面的方法就不 会出问题了. Pi:=Ptr($68f370);Pi^:=5; 如此赋值给一个指定地址可能导致其他程序瘫痪,除非 你确定地知道该地址指向的是什么东西. procedure TForm1.Button1Click(Sender: TObject); var   I:Integer;   Pi:^Integer;   PL: longint; begin   I:=10;   PL := Longint(@i);   Pi:=Ptr(PL);   Pi^:=5;   showmessage(IntToStr(I)); end;

AKang · 2000-05-05

多人接受答案了。

有关指针的疑问??(10分)

AKang

Unregistered / Unconfirmed

Jams

Unregistered / Unconfirmed

Nose

Unregistered / Unconfirmed

Shao.K

Unregistered / Unconfirmed

flyinsky

Unregistered / Unconfirmed

SuperMMX

Unregistered / Unconfirmed

Pipi.

Unregistered / Unconfirmed

SuperMMX

Unregistered / Unconfirmed

huizhang

Unregistered / Unconfirmed

AKang

Unregistered / Unconfirmed

Similar threads