vault backup: 2025-08-11 16:42:16

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
+```