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

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

@@ -526,4 +526,35 @@ end.
 
 ### 拼接的另一种方式
 
-由于
+由于采用 `StringList` 拼接会出现拼接的字符串中包含特殊字符时，默认给该字符串加上双引号的的情况，如图所示
+
+![](assets/0875f15131f11e246ef28751293de75f.png)
+
+那么对此可以采用另一种拼接方式，直接将字符串与字符串拼接起来，不再使用 `StringList` 记录再转化
+
+```Delphi
+var
+  TempStr: string;
+begin
+  TempStr := '';
+  
+  if fedtusr_KHMC.Text <> '' then
+    TempStr := fedtusr_KHMC.Text;
+  
+  if fedtusr_khth.Text <> '' then
+  begin
+    if TempStr <> '' then
+      TempStr := TempStr + '-'; // 添加分隔符
+    TempStr := TempStr + fedtusr_khth.Text;
+  end;
+  
+  if fedtusr_lb.Text <> '' then
+  begin
+    if TempStr <> '' then
+      TempStr := TempStr + '-'; // 添加分隔符
+    TempStr := TempStr + fedtusr_lb.Text;
+  end;
+  
+  fedtFShtName.Text := TempStr; // 直接赋值
+end.
+```