inteter 和pointer 怎么转化？？？或者pointer和string 怎么转化？？？

Question

RT ~~~  高手帮助啊。。  在线等。

Answer 1

procedure TForm1.Button2Click(Sender: TObject);
var
  i: Integer;
  p: Pointer;
begin
  i := 100;
  p := Pointer(i);
end;

Answer 2

var
  p: Pointer;
  s: String;
begin
  p := Pointer($23400);
  s := IntToHex(Integer(p), 8);
  Caption := s;
end;

Answer 3

String 的存在形式就是指针var
  S: String;
begin
Pointer() 
end;

Answer 4

var
  S: string;
  P: Pointer;
  P1: PChar;
begin
  S := '12345';
  P := PChar(S);
  ShowMessage(IntToStr(Integer(P)));
  P1 := P;
  ShowMessage(P1);
end;