使Delphi 局部常量有全局变量的效果

---

procedure TForm1.btn1Click(Sender: TObject);

{$J+}

const // 类似C的静态变量，有全局变量的作用

  g_Num: Integer = 0;

{$J-}

begin

  Inc(g_Num);

  Caption := IntToStr(g_Num);

end;

  有时需要一个只作用于函数内部的“全局变量”，即满足功能又方便管理，这个方法就能派上用场。