如何在过程中定义常量！！！或如何在定义变量时给个默认数值

Question

我在一个按钮里写程序时，不让我定义常量，怎么办？
我试着定义整型变量，但不能立即给个默认的值！！！如何处理的？

Answer 1

可以啊procedure TForm1.Button1Click(Sender: TObject);
const i = 1;
var
  str:string;
beginend;

Answer 2

用const 把
procedure reg;
const i=1;
begin
end;

Answer 3

常量：const iint = 11
变量：var
      sstr :string;如果为全局变量，也可赋初始值。
var
  Form1: TForm1;
  i :integer = 1 ;