Delphi(pascal)不像c中可以直接使用static来声明变量为静态的,但是并不是说在delphi中就没有解决方法了,具体解决方法如下:
procedure ......
var
......
{$j+}
const iVar : integer = 0; //声明静态变量
{$j-}
begin
inc(iVar); //使静态变量加一
showmessage(inttostr(iVar));
end;