$J的用法

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

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