Question

在德尔福：

如何获取指针指向的地址（0x2384293）？

var iValue := Integer;
    iptrValue := PInteger;

implementation

procedure TForm1.Button1Click(Sender: TObject);
begin
  iptrValue := @iValue;
  iValue := 32342;
  //Should return the same value:
  Edit1.Text := GetAddressOf(iptrValue);
  Edit2.Text := GetAddressOf(iValue);

那么GetAddress实际上是什么：）

Answer 1

要获取某些内容的地址，请使用@运算符或Addr函数。您已经证明了正确使用它。您获得iValue的地址并将其存储在iptrValue。

要显示地址，您可以使用Format函数将指针值转换为字符串。使用%p格式字符串：

Edit1.Text := Format('%p -> %p -> %d', [@iptrValue, iptrValue, iptrValue^]);

这将显示iptrValue变量的地址，然后显示存储在该变量中的地址，然后显示存储在该地址的值。

iptrValue变量声明在内存中保留一些字节并将名称与它们相关联。假设第一个字节的地址是$00002468：

iptrValue +----------+ $2468: | | +----------+

iValue声明保留了另一段内存，它可能与前一个声明的内存相邻。由于iptrValue宽度为四个字节，因此iValue的地址为$0000246C：

iValue +----------+ $246c: | | +----------+

我现在绘制的方框是空的，因为我们还没有讨论这些变量的值。我们只讨论了变量的地址。现在转到可执行代码：你写@iValue并将结果存储在iptrValue中，所以你得到了这个：

iptrValue +----------+ +----------+ $2468: | $246c |--->| | +----------+ +----------+ iValue +----------+ $246c: | | +----------+ Next, you assign 32342 to `iValue`, so your memory looks like this: iptrValue +----------+ +----------+ $2468: | $246c |--->| 32342 | +----------+ +----------+ iValue +----------+ $246c: | 32342 | +----------+

最后，当您从上面显示Format函数的结果时，您会看到以下值：

00002468 -> 0000246C -> 32342

Answer 2

只需将其转换为整数：）

IIRC，还有一个字符串格式说明符（％x？％p？），它将自动格式化为8个字符的十六进制字符串。

Answer 3

这是我自己的地址函数示例：

function GetAddressOf( var X ) : String;
Begin
  Result := IntToHex( Integer( Pointer( @X ) ), 8 );
end;

使用2变量的相同数据的示例：

type
  TMyProcedure = procedure;

procedure Proc1;
begin
  ShowMessage( 'Hello World' );
end;

var
  P : PPointer;
  Proc2 : TMyProcedure;
begin
  P := @@Proc2; //Storing address of pointer to variable
  P^ := @Proc1; //Setting address to new data of our stored variable
  Proc2; //Will execute code of procedure 'Proc1'
end;

Answer 4

GetAddressOf（）将返回变量的地址。

GetAddressOf(iptrValue) - the address of the iptrValue
GetAddressOf(iValue) - the address of iValue

你想要的是指针的值。为此，将指针转换为无符号整数类型（如果我没记错，则为Longword）。然后，您可以将该整数转换为字符串。

Answer 5

它实际上是你需要的ULong：

procedure TForm1.Button1Click(Sender: TObject);
var iValue : Integer;
    iAdrValue : ULong;
    iptrValue : PInteger;
begin
  iValue := 32342;
  iAdrValue := ULong(@iValue);
  iptrValue := @iValue;

  //Should return the same value:
  Edit1.Text := IntToStr(iAdrValue);
  Edit2.Text := IntToStr(ULong(iptrValue)); 
  Edit3.Text := IntToStr((iptrValue^); // Returns 32342
end;

我在Delphi 2006中没有找到GetAddressOf函数。它似乎是一个VB函数？

delphi指针地址

5 个答案: