LanHeron/WorkNote
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

vault backup: 2025-08-06 13:39:00

Browse Source
This commit is contained in:
LanHeron
2025-08-06 13:39:00 +08:00
parent 18e6bd38d0
commit c509e45450
1 changed files with 3 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md
View File

@ -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,