如何将指针值转换为字符串?想象一下:
procedure TForm1.Button1Click(Sender: TObject);
var DummyPointer :Pointer;
begin
DummyPointer := Addr(Sender);
ShowMessage(IntToStr(DummyPointer)); //this is it, what I can not solve... it casts error
end;
谢谢
最佳答案
首先,您编写 TPointer
,但我假设您的意思是 Pointer
.
现在,给定一个指针 P
,诀窍是将其重新解释为 native 大小的整数:例如 NativeInt(P)
。 NativeInt
是与指针大小相同的有符号整数类型。
因此,编译如下:
procedure TForm1.Button1Click(Sender: TObject);
var
DummyPointer: Pointer;
begin
DummyPointer := Addr(Sender);
ShowMessage(IntToStr(NativeInt(DummyPointer)));
end;
这将显示 Sender
变量的地址。
但是,这可能不是您想要的。我怀疑您想要 Sender
指向的对象的地址。实际上,在 Delphi 中,对象变量只是指向堆上对象的指针:
procedure TForm1.Button1Click(Sender: TObject);
var
DummyPointer: Pointer;
begin
DummyPointer := Addr(Sender);
ShowMessage(IntToStr(NativeInt(DummyPointer))); // address to the Sender variable
DummyPointer := Pointer(Sender);
ShowMessage(IntToStr(NativeInt(DummyPointer))); // address to the Sender object
ShowMessage(IntToStr(NativeInt(Sender))); // address to the Sender object
end;
不同之处在于,在 Addr(Sender)
处,您会找到一个指向 Sender
对象的指针变量,而在 Pointer(Sender)
处,您找到对象本身。
关于delphi - 如何将指针值转换为字符串,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/66732988/