vault backup: 2025-03-04 13:44:41

SanPinPLM/相关操作/4.other/999.Delphi脚本记录.md

@@ -72,3 +72,28 @@ end.
 
 ## 属性值是否被另一属性所包含校验
 
+`fedtusr_gys` 控件中的值有多个，采取 `;` 进行分隔，现要验证 `fedtusr_shgys` 控件中的值是否存在于 `fedtusr_gys` 控件中，如果不存在，则弹窗提示
+
+```delphi
+uses MyClass,Variables,BaseUtil,CommonFunc,DataConst,CFFrm,CFSimplePropFrm,Forms,StdCtrls,Variants,SysUtils,Classes,Controls,Dialogs,
+     CHostIntf,ProductClas,DocClas,LoginClas,VirtualTrees,CEntClas,PathClas;
+
+var
+	gysList: TStringList;
+begin
+  	try
+	    // 初始化 TStringList
+	    gysList := TStringList.Create;
+	    gysList.Delimiter := ';';
+	    gysList.StrictDelimiter := True;
+	    // 将 fedtusr_gys 按分号分隔成列表
+	    gysList.DelimitedText := fedtusr_gys.Text;
+	    if gysList.IndexOf(fedtusr_shgys.Text) = -1 then
+	      begin
+			ShowMessage('默认供应商未包含在供应商列表中');
+	      end;  
+  	finally
+      	gysList.Free;
+  	end;
+end.
+```