diff --git a/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md b/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md
index f785a5e5..6c3de033 100644
--- a/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md
+++ b/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.
\ No newline at end of file
+end.
+```
+
+测试
\ No newline at end of file