关于messagebox的问题

Question

MessageBox(PChar('要修改'+x+'客户的信息'),'',MB_OK);

Answer 1

PChar('要修改'+x+'客户的信息')

Answer 2

messagebox(handle,'数据错误','信息窗口',mb_ok);

Answer 3

怎么不可以？
procedure TForm1.Button1Click(Sender: TObject);
var s:string;
    i:integer;
begin
  for i:=1 to 10 do
  begin
    s:=inttostr(i);
    MessageBox(handle,'test',pchar(s),0);
  end;
end;

Answer 4

procedure TForm1.Button1Click(Sender: TObject);
var
  MyStr: string;
  x: string;
begin
  x := 'XXX';
  MyStr := Format('要修改 %s 客户的信息', [x]);  MessageBox(Handle, PChar(MyStr), PChar(Caption), 0);
end;

Answer 5

把字符串分开写吗，'要修改x客户的信息‘——>'要修改’+x+‘客户的信息’

Answer 6

不知这样行不：MessageBox(PChar('要修改'+strings(x)+'客户的信息'),'',MB_OK);

Answer 7

MessageBox(PChar('要修改'+x+'客户的信息'),'',MB_OK);