From c7fd57bc47a2505eaeb5d322ffacf982cf9c46cb Mon Sep 17 00:00:00 2001 From: SeedList Date: Wed, 9 Jul 2025 15:46:43 +0800 Subject: [PATCH] vault backup: 2025-07-09 15:46:43 --- .../相关操作/4.0-other/999.Delphi脚本记录.md | 25 ++++++++++++++++++- 1 file changed, 24 insertions(+), 1 deletion(-) diff --git a/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md b/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md index a3d029a0..8770a169 100644 --- a/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md +++ b/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. ``` \ No newline at end of file