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

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

@@ -495,9 +495,8 @@ end.
 
 当要设置自定义分隔符号，`StringList.Delimiter := '-';` 需要写在转化语句之前
 
-
-
-```uses MyClass,Variables,BaseUtil,CommonFunc,DataConst,CFFrm,CFSimplePropFrm,Forms,StdCtrls,Variants,SysUtils,Classes,Controls,Dialogs,
+```delphi
+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;
@@ -520,4 +519,7 @@ begin
    finally
     StringList.Free;
   end;
-end.
+end.
+```
+
+测试