如何用Pointer对象获取变量内存地址

Question

如何用Pointer对象获取变量内存地址，能不能给个实例，注释说明下感激不尽。

Answer 1

var
  p:Pointer;
begin
  p:=addr(a);
end;

Answer 2

如下：var 
  i :Integer; 
  p :Pointer; 
  begin 
   p := @i; 
  end; 

Answer 3

p :Pointer;p := @object

Answer 4

Delphi的指针很简单的，比如获得导入表的函数地址
Result := PPointer(PPointer(Cardinal(lpImportAddr) + 2)^)^

Answer 5

月亮很久前就出现了……
那个问题，因为jmp指令占两个字节，导入表的指令都是Jmp Dword ptr DS:[XXXXXX]之类的，指针直接指向导入表即可，加上jmp两个字节，就是上面那样了