xe6 pchar 不能连接???

Question

Hint是String类型？
var
  P1, P2: PAnsiChar;
begin
  P1 := '1';
  P2 := '3';
  Caption :=StrPas(P1) +String(P2);  //两种转换方式都一样
end;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  hint:string;
  p1,p2:PAnsiChar;
begin
  p1:='1';
  p2:='3';
  hint:=String(P1)+String(P2);
  edit1.text:=hint;
end;
procedure TForm1.Button1Click(Sender: TObject);
var
  hint:string;
  p1,p2:PAnsiChar;
begin
  p1:='1';
  p2:='3';
  hint:=String(P1)+String(P2);
  edit1.text:=hint;
end;通过强制转换，才能相同类型（字符变量）的连接。