diff --git a/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md b/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md index cde9fea6..c5c5ce8f 100644 --- a/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md +++ b/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md @@ -741,12 +741,18 @@ end. ## 整数判断 -条件:物料 **启用库存周期复检** 时,**复检周期须不小于0** 且 **不小于提醒提前期** +想要达到的:物料 **启用库存周期复检** 时,**复检周期须不小于0** 且 **不小于提醒提前期** ![](assets/Pasted%20image%2020250811162833.png) - +前置条件: // 定义变量存储转换后的整数数值 var StockCycle, LeadDay: Integer; +try + // 将输入框文本转换为整数 + StockCycle := StrToInt (fedtusr_FStockCycle. Text); + LeadDay := StrToInt (fedtusr_FEWLeadDay. Text); + except + on E: EConvertError do \ No newline at end of file