delphi Inc函数和Dec函数的用法

 

procedure TForm1.Button1Click(Sender: TObject);
{$j+}
const i:integer=0;
      j:integer=0;
{$j-}
begin
  inc(i);
  Dec(j);
  Self.Caption:=Format('Inc%d Dec%d',[i,j]);
end;

通过 Wiz 发布