vault backup: 2025-07-09 15:46:43

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

@@ -593,6 +593,29 @@ end.
 
 如果需要删除其他空白字符（如制表符、换行符），可以修改过程为：
 
-```de
+```delphi
+uses 
+  MyClass, Variables, BaseUtil, CommonFunc, DataConst, CFFrm, CFSimplePropFrm, 
+  Forms, StdCtrls, Variants, SysUtils, Classes, Controls, Dialogs,
+  CHostIntf, ProductClas, DocClas, LoginClas, VirtualTrees, CEntClas, PathClas;
 
+// 在begin之前定义过程
+procedure RemoveSpacesFromEdit(EditControl: TCustomEdit);
+var
+  OriginalText: string;
+begin
+  OriginalText := EditControl.Text;
+  // 删除所有空白字符
+  OriginalText := StringReplace(OriginalText, ' ', '', [rfReplaceAll]);
+  // 制表符
+  OriginalText := StringReplace(OriginalText, #9, '', [rfReplaceAll]); 
+  // 换行符
+  OriginalText := StringReplace(OriginalText, #13#10, '', [rfReplaceAll]); 
+  EditControl.Text := OriginalText;
+end;
+
+begin
+  // 调用过程处理edtSpec控件
+  RemoveSpacesFromEdit(edtSpec);
+end.
 ```