procedure TForm1.Button1Click(Sender: TObject);
const
xh:integer=6; //用const定义一个常量,并赋予整形值6
var x:string; //用var定义一个变量,类型为字符串
begin
x:=inttostr(xh); //吧整形xh 值赋给 x
showmessage (inttostr(xh));
result.Text:=x; //在文本框输出x内容
end;
end.
procedure TForm1.Button1Click(Sender: TObject);
const
xh:integer=6; //用const定义一个常量,并赋予整形值6
var x:string; //用var定义一个变量,类型为字符串
begin
x:=inttostr(xh); //吧整形xh 值赋给 x
showmessage (inttostr(xh));
result.Text:=x; //在文本框输出x内容
end;
end.