vault backup: 2025-07-09 15:44:39

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

@@ -567,3 +567,32 @@ end.
 
 删除掉指定控件中输入的文本的空格
 
+```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;
+  // 使用StringReplace函数删除所有空格
+  EditControl.Text := StringReplace(OriginalText, ' ', '', [rfReplaceAll]);
+end;
+
+begin
+  // 调用过程处理edtSpec控件
+  RemoveSpacesFromEdit(edtSpec);
+end.
+```
+
+### 删除其他空白字符
+
+如果需要删除其他空白字符（如制表符、换行符），可以修改过程为：
+
+```de
+
+```