From c509e45450b2a8a948488d4e5522e32f3038413a Mon Sep 17 00:00:00 2001 From: LanHeron Date: Wed, 6 Aug 2025 13:39:00 +0800 Subject: [PATCH] vault backup: 2025-08-06 13:39:00 --- SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md | 8 +++----- 1 file changed, 3 insertions(+), 5 deletions(-) diff --git a/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md b/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md index c3680b62..9a739a9f 100644 --- a/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md +++ b/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md @@ -425,9 +425,7 @@ end. ### 枚举itemindex说明 -`itemindex` 是指枚举的序号，当为空时，`itemindex` 为 `-1`，不为空时，从 `1` 开始计数（切记！不是从 `0` 开始） - -![](assets/Pasted%20image%2020250804150629.png) +`itemindex` 是指枚举的序号，当为空时，`itemindex` 为 `-1`，不为空时，从 `0` 开始计数（切记！不是从 `1` 开始） 如果枚举序号不同，哪怕枚举值一样也是无用的 @@ -439,13 +437,13 @@ end. > > 若想达到效果，当 `cbxusr_444` 枚举控件选择 `A` 的时候，`cbxusr_333` 枚举控件要更新成 `3` > -> 那么使用 `cbxusr_333.itemindex := cbxusr_444.itemindex;` 是无法实现的，因为 `cbxusr_444` 枚举控件选择 `A` 的时候，`iteminde` 为 `1`，而 `cbxusr_333` 枚举控件的 `itemindex` 为 `1` 的时候，对应的是枚举 `3` +> 那么使用 `cbxusr_333.itemindex := cbxusr_444.itemindex;` 是无法实现的，因为 `cbxusr_444` 枚举控件选择 `A` 的时候，`iteminde` 为 `0`，而 `cbxusr_333` 枚举控件的 `itemindex` 为 `0` 的时候，对应的是枚举 `3` ## 枚举项联动 `fedtusr_FBaseUnitId` 控件有值，且 `fedtusr_FPurchaseUnitId`、`fedtusr_FSaleUnitId`、`fedtusr_FSalePriceUnitId` 等控件没有选择值的情况下，将 `fedtusr_FBaseUnitId` 控件的值赋予给其他控件（仅限于 **值改变时执行**） -枚举控件空值为-1，从1开始计数（计数方式见 [枚举itemindex说明](#枚举itemindex说明) ） +枚举控件空值为-1，从0开始计数（计数方式见 [枚举itemindex说明](#枚举itemindex说明) ） ```Delphi uses MyClass,Variables,BaseUtil,CommonFunc,DataConst,CFFrm,CFSimplePropFrm,Forms,StdCtrls,Variants,SysUtils,Classes,Controls,Dialogs,