很简单又很奇怪的问题！！！！！！！！！！！！！！！！

Question

//为什么不报错？
那这样又是什么意思呢？
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
    P:pchar;
begin
  i:=21;
  p:='';
  showmessage('p: '+p+'i: '+inttostr(i));
  p:=p+i;
  showmessage('p: '+p+'i: '+inttostr(i));
end;

Answer 1

integer类型和pchar类型能加？为什么？
那加后的值又表示什么意思呢？？？？？？？？？？？？？？？？

Answer 2

pchar是指针（整数），当然能加整数
procedure TForm1.Button4Click(Sender: TObject);
var i:integer;
    P:pchar;
    s:string;
begin
  i:=21;
  s:='abcd';
  p:=Pchar(s);  //p现在是 'abcd'
  i:=2;
  p:=p+i;
  showmessage('p: '+p+#13+'i: '+inttostr(i));  // 结果'cd'end;