Delphi有没有C/C++里的static类似的定义方法啊？

Question

居然没查到，我的天，应该有吧！
或者有其他的实现方法？
请高手指点！void StaticFun()             procedure StaticFun
{                            begin
  static int a=0;              ?
                               ?
  a++;                         ?
  printf("%d",a);              ?
}                            end;main()                       
{
  int i;  for(i=0;i<5;i++)
    StaticFun();
}
12345

Answer 1

你要函数定义前加class就可以啦,也就是所谓的类方法.

Answer 2

静态变量是 带类型的常量代替，定义为：CONST a: Integer = 0; 程序中可以对a进行负值滴。
函数定义前加 class，定义为：class procedure StaticFun;

Answer 3

no
private/local global var instead