浮点 小数 位数delphi
transform (牛客多校) (双指针+二分+ 中位数妙用+前缀和相减维护)
题目大意: n 个商店在 一条直线上, 有一个xi 然后 有 ai 个商品 你可以把 商店的物品 移动到另一个商店, 代价为 : abs(xi-xj) 在代价不超过T的情况下 你可以选择一个商店来让 其他商店的物品都移到这个商店,问最多移动多少个物品 思路: 双指针维护一个最大的区间, 因为这个最大 ......
《Delphi精要》pdf版电子书免费下载
本书的核心内容是讲述Object Pascal 和VCL的重、难点知识（即所谓“精要”），集中于第3章、第5章。第2章、第4章阐明相应的一些基本概念，是为初学者而设立。本书也是一本参考手册，包括了“IDE的快捷键列表（2.8）、“编译指令”（3.4）、“VCL消息大全（5.2.4）、“常用函数和过程 ......
分析小数部分位数时遇到的小坑
本篇随笔讲一下split()和split_part() 1、split函数 split(<str>, <pat>, [<trimTailEmpty>])参数1是一个string参数2要注意是一个正则表达式，不是string（这也是本次遇到小坑的地方）参数3不常用，true是默认值，如果解析"a,b, ......
js保留小数位数（进位舍去）问题
toFixed(x) 这个方法在使用时，它内部对于进位舍去并没有使用四舍五入方法，而是使用的是银行家舍去法，即： 舍去位的数值小于5时，直接舍去 舍去位的数值大于等于6时，进位舍去 当舍去位的数值等于5时，分为两种情况：5后面还有其他数字（非0），则进位后舍去；若5后面是0，则根据5前一位数的奇偶性 ......
oracle统计出正整数对应二进制的里面1的位数
declare n number:=15; count1 int :=0;begin while n<>0 loop n := bitand(n,n-1); count1 := count1+1; end loop; dbms_output.put_line(count1); end; 结果为： 对 ......
js保留小数的方法（如保留一位小数）
js保留小数的方法如下：（以保留两位为例） 1、toFixed()方法 需注意，保留两位小数，将数值类型的数据改变成了字符串类型 // 1. 四舍五入var num = 1.7321;num = num.toFixed(2);console.log(num); //1.73console.log(t ......
delphi7使用rave5.0展现数据库数据报表
时隔多年，回头再次拿起Delphi。使用Delphi7展现Rave设计的报表，尝试了很多次， 目前仅掌握的两种方式： ①不在delphi程序中设置数据库连接组件，直接调用Rave报表文件展现，获取数据是在rave文件中设置数据库连接并完成的（DriverDataView）。（这种还需要补充加载驱动解 ......
delphi model序列和还原
delphi model序列和还原 unit serialize; /// <author>cxg 2022-8-30</author> interface uses System.SysUtils, Grijjy.ProtocolBuffers, System.JSON.Serializers; ......
delphi7使用QuickReport快速生成报表
QuickReport报表组件是Delphi7之前版本广泛使用的数据库报表设计工具组件， 在Delphi7版本中默认没有加载在Delphi7的工具栏上。因此，需要手动安装加载一下，安装QReport组件插件步骤如下： ①在Delphi7中执行菜单[Component]==>[Install Pack ......
JS 保留小数 又一方法
对于X进行保留两位小数的处理，则可以使用 Math.round(X * 100) / 100 进行处理。 在 JavaScript 中，对数值进行四舍五入操作的场景还有以下几种： 向上取整：ceil 向下取整：floor 四舍五入：round 固定精度：toFixed 固定长度：toPrecisio ......
delphi 正则表达式
# 正则表达式 ## 代码 ### 匹配 ```delphi uses System.RegularExpressions; procedure TForm1.Button1Click(Sender: TObject); var vMatch: TMatch; begin //匹配正则表达式 vMa ......
Skia For Delphi 6.0 beta 1
这个版本，将是与官方集成后的版本，Skia.pas都改成System.Skia了！爽！！期待Delphi 12的发布！ ......
Delphi 原生支持DataSet导出Json
Xalion发现data.DBJson单元，不知什么时候加的，官方帮助中也没有写。 procedure TForm18.Button2Click(Sender: TObject); var cV: TDatasetToJSONBridge; jo: Tjsonobject; begin cV := ......
R语言 计算RMSE, MAE, SD, Bias，严格保留小数点后位数
#1,计算MAE MAE<-sprintf("%.2f",mean(abs(actual-predicted))) #2,计算RMSE library(Metrics) RMSE<-sprintf("%.2f",rmse(actual,predicted)) #3,计算error_abs_SD SD ......
Delphi FASTreport 4 自动补空行的方法
写了一个比较简单易懂易调试的补空行的方法 在masterdata的OnAfterPrint加入事件 procedure MasterData1OnAfterPrint(Sender: TfrxComponent);vari,j,k,hh:integer; hs:string; //当前行数begin ......
python整型/字符串/浮点 地址
>相同整数/浮点数/字符串-同一内存地址  >不同整数/浮点数/字符串-不同内存地址  ```delphi procedure TForm1.WMNCHitTest(var Msg: TWMNCHitTest); begin DefaultHandler(msg); if Msg.Result=HTCLIENT ......
自定义系统级无窗口全局快捷键热键-Delphi7_Lite_Full_Edition_Setup_7.3.4.3_Build_20110801-2023年6月9日
自定义系统级无窗口全局快捷键热键-Delphi7_Lite_Full_Edition_Setup_7.3.4.3_Build_20110801-2023年6月9日 program Project1_SetHotkeyBaiduSyncDisk; uses Forms, Unit1_SetHotkey ......
matlab使用分位数随机森林（QRF）回归树检测异常值|附代码数据
全文链接：http://tecdat.cn/?p=22160 最近我们被客户要求撰写关于分位数随机森林（QRF）回归树的研究报告，包括一些图形和统计输出。 这个例子展示了如何使用分位数随机林来检测异常值 分位数随机林可以检测到与给定X的Y的条件分布有关的异常值。 离群值是一些观测值，它的位置离数据集 ......
TP5 验证金额是两位小数 ，1.2， 1， 0.01， 0.1都可以
'amount|价格' => ['require', 'max:128', 'float','>:0', 'regex' => '^(([1-9]{1}\d*)|(0{1}))(\.\d{1,2})?$'], ......
DELPHI android 小米 解释软件包时出现问题
环境：delphi d11.3 Android SDK 25.2.5 编译出来的APP无法在小米手机上安装，提示：解释软件包出现问题。 经友人指导，在 AndroidManifest.template.xml 文件的 activity 节点加入如图所示的选项，重新编译APP即可。 android:e ......
WebSocket-scgWebSocket For Delphi
#### sgcWebSocket 组件作为商业组件，相对比较成熟，今天研究一下，参考官网地址：https://www.esegece.com * ##### 服务端 >>> sgcWebSocketServer 属性：Bindings 增加监听socket 配置监听Ip地址和端口 Active 激 ......
delphi 回调函数例子 用函数过程作为参数
转：今天有个朋友问我怎么用函数或者过程作为函数的参数呢，我说网上有挺多的，然而他告诉我很多例子运行不起来，我搜了几个测试了下，不知道是不是我自己的软件版本的问题，运行不了，所以自己研究了下，把自己能运行的贴出来，和大家分享分享。 先说说回调函数需要注意的几个步骤吧， 首先要声明一个类型； type ......
Delphi XE TTask的常用方法
Delphi XE TTask的常用方法 1、创建TTask对象使用TTask类需要先创建一个TTask对象，可以通过以下方式创建： task := TTask.Create(procedure begin // 这里编写任务代码 --滔Roy 2023.06.06 end); 2、启动、等待、取消 ......
delphi判断多个CheckBox是否勾选（几种做法）
看到群里网友在问这个问题？尝试写一下代码 1、用FindComponent函数 根据控件名称动态获取对应的控件状态 procedure TForm1.Button1Click(Sender: TObject); var i: Integer; str: string; begin str := '' ......
Delphi Variant 通用类型[5] OLEVariant 的空值判定和释放
Delphi Variant 通用类型[5] OLEVariant 的空值判定和释放 1、OLEVariant 的空值判定 var v: OLEVariant; begin v := 'TaoRoy 2023'; if VarIsEmpty(v) or VarIsNull(v) then ShowM ......
delphi xe10 提示没有定义DecimalSeparator 的 解决方法
delphi xe10 提示没有定义DecimalSeparator 的 解决方法 只需要把DecimalSeparator前加上FormatSettings变成 FormatSettings.DecimalSeparator；如果提示没有定义ShortTimeFormat，DateSeparato ......
java 如何保留小数位的0？（#.##与0.00的区别）
1.情景展示 如上图所示，在java语言中，如果后面的小数位是零的话，会被自动抹除。 但在实际场景中，我们往往需要对小数位进行管理（统一展示小数的位数）： 不足小数位的进行补零操作，多余的小数位进行舍弃或者四舍五入。 具体应如何实现？ 2.具体分析 通过DecimalFormat.format()方 ......