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


procedure TForm1.btn1Click(Sender: TObject);
{$J+}
const // 类似C的静态变量,有全局变量的作用
  g_Num: Integer = 0;
{$J-}
begin
  Inc(g_Num);
  Caption := IntToStr(g_Num);
end;