正数与负数取反

procedure TForm4.Button4Click(Sender: TObject);
var
  i,j,k: Integer;
begin
  i := -29;
  j := not i;  //取反  
  
  k := not 30;

end;

//j = 28   k = -31  


//反码 =  -1 * (n+1)