From c1d7c984ada39a9672fc375a8c4eec3a69b4af13 Mon Sep 17 00:00:00 2001
From: DingJiaQi <3236352125@qq.com>
Date: Mon, 11 Aug 2025 16:34:16 +0800
Subject: [PATCH] vault backup: 2025-08-11 16:34:16

---
 SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md | 10 ++++++++--
 1 file changed, 8 insertions(+), 2 deletions(-)

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