$J的用法

$J相当于C里面的static类型

procedure TForm1.Button1Click(Sender: TObject);
const
{ $J+ }
i: integer = 0 ;
{ $J- }
begin
ShowMessage(IntToStr(i));
Inc(i);
end ;

 

转载于:https://www.cnblogs.com/Jekhn/archive/2010/12/28/1918515.html