diff --git a/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md b/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md index 42ad1447..cc87c541 100644 --- a/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md +++ b/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md @@ -741,11 +741,9 @@ end. ## 整数判断 -举例:物料 **启用库存周期复检** 时,**复检周期须不小于0** 且 **不小于提醒提前期** +期望当物料 **启用库存周期复检** 时,**复检周期须不小于0** 且 **不小于提醒提前期**,对 **复检周期** 进行校验 -![](assets/Pasted%20image%2020250811162833.png) - -脚本: +```delphi // 定义变量存储转换后的整数数值 var StockCycle, LeadDay: Integer; begin @@ -786,16 +784,4 @@ begin end; end; end. - - - -前置条件: -// 定义变量存储转换后的整数数值 -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 +``` \ No newline at end of file