Merge remote-tracking branch 'origin/main'

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