此值为什么等于1242504(20分)

王

王承武

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-14

• #1

procedure TFormGPF.BtnSafeClick(Sender: TObject);
var
P: ^Integer;
X: Integer;
begin
P := @X;
X := 100;
if P <> nil then
ShowMessage (IntToStr (P^));
end;

 

Q

quejian

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-14

• #2

P 是一个指针，那是地址

 

C

cqbaobao

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-14

• #3

不会吧？程序没错啊

 

特

特尔斐

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-14

• #4

在我的机上结果为：
---------------------------
Project1
---------------------------
100
---------------------------
OK
---------------------------

 

王

王承武

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-14

• #5

OK，现在是一下，结果100

 

F

firstrose

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-14

• #6

注意，inttostr有两种参数类型。最好用
var
a,c:integer;
b:^integer;
begin
a:=XXX;
b:=@a;
c:=b^;
^^^^^^^^^^
XX:=intotstr(c);

 

王

王承武

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-06-14

• #7

接受答案了.