delphi const常量声明演示

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.