Application.messagebox()显示变量值问题

Question

procedure TForm1.Button1Click(Sender: TObject);
 VAR
  test:integer;begin
 test:=1111; IF application.messagebox('测试数据'+inttostr(test1)+ ','test',MB_YESNO)=IDYES THEN
  EDIT1.Text:='1'
 ELSE
  EDIT1.Text:='2';
end;我想得到弹出对话框"测试数据1111"怎么写,谢谢!

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
test : integer;
begin
   test := 1111;
  if Application.MessageBox(pchar(format('测试数据%d',[test])),'caption',MB_YESNO) = IDYES then
   edit1.Text := '1'
  else edit1.Text := '2';
end;