请教：delphi中的类型转换：address to int

Question

你说的地址是什么，
指针吧，
可以INTEGER（YOUR_POINT);

Answer 1

直接用long int去定义地址变量不行吗

Answer 2

procedure TForm1.Button1Click(Sender: TObject);
var
  P: Pointer;
  I: Integer;
begin
  P := nil;
  I := Integer(P);
  ShowMessage(IntToStr(I));
  P := Self;
  I := Integer(P);
  ShowMessage(IntToStr(I));
end;

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
type
  PForm = ^TForm;
var
  P: Pointer;
  I: Integer;
begin
  I := Integer(Self);
  P := @Pointer(I);
  PForm(P)^.Caption := 'look';
end;