vault backup: 2025-06-19 11:08:50

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

@@ -496,8 +496,10 @@ end.
 当要设置自定义分隔符号，`StringList.Delimiter := '-';` 需要写在转化语句之前
 
 ```delphi
-uses MyClass,Variables,BaseUtil,CommonFunc,DataConst,CFFrm,CFSimplePropFrm,Forms,StdCtrls,Variants,SysUtils,Classes,Controls,Dialogs,
-     CHostIntf,ProductClas,DocClas,LoginClas,VirtualTrees,CEntClas,PathClas;
+uses 
+  MyClass, Variables, BaseUtil, CommonFunc, DataConst, CFFrm, CFSimplePropFrm, 
+  Forms, StdCtrls, Variants, SysUtils, Classes, Controls, Dialogs,
+  CHostIntf, ProductClas, DocClas, LoginClas, VirtualTrees, CEntClas, PathClas;
 var 
   StringList: TStringList;
 
@@ -522,4 +524,6 @@ begin
 end.
 ```
 
-测试
+### 拼接的另一种方式
+
+由于