From 5134bd81600364b1fa91f5d882747a8599827236 Mon Sep 17 00:00:00 2001
From: LanHeron <YMHeron@outlook.com>
Date: Tue, 22 Jul 2025 10:39:09 +0800
Subject: [PATCH] vault backup: 2025-07-22 10:39:09

---
 .../相关操作/4.0-other/999.Delphi脚本记录.md  | 43 ++++++++++++++++++-
 1 file changed, 42 insertions(+), 1 deletion(-)

diff --git a/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md b/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md
index b2fdf2d2..7a86d6e8 100644
--- a/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md
+++ b/SanPinPLM/相关操作/4.0-other/999.Delphi脚本记录.md
@@ -661,4 +661,45 @@ end.
 
 此外，脚本必须放在 **按钮** 的 **单击执行** 中
 
-![](assets/Pasted%20image%2020250710104559.png)
\ No newline at end of file
+![](assets/Pasted%20image%2020250710104559.png)
+
+## 获取当前日期拼接到字符串中
+
+获取当前的日期，并以 `yyyy-mm-dd` 的格式拼接到字符串末尾
+
+```delphi
+uses MyClass,Variables,BaseUtil,CommonFunc,DataConst,CFFrm,CFSimplePropFrm,Forms,StdCtrls,Variants,SysUtils,Classes,Controls,Dialogs,
+     CHostIntf,ProductClas,DocClas,LoginClas,VirtualTrees,CEntClas,PathClas;
+
+var
+  TempStr: string;
+begin
+  TempStr := '';
+  
+  if fedtusr_lb.Text <> '' then
+  begin
+    TempStr := TempStr + fedtusr_lb.Text;
+  end;
+  
+  if fedtusr_KHMC.Text <> '' then 
+  begin
+    if TempStr <> '' then
+      TempStr := TempStr + '-'; // 添加分隔符       
+    TempStr := TempStr + fedtusr_KHMC.Text;
+  end;
+    
+  if fedtusr_khth.Text <> '' then
+  begin
+    if TempStr <> '' then
+      TempStr := TempStr + '-'; // 添加分隔符
+    TempStr := TempStr + fedtusr_khth.Text;
+  end;
+  
+  // 替换为当前时间（总是添加）
+  if TempStr <> '' then
+    TempStr := TempStr + '-'; // 添加分隔符
+  TempStr := TempStr + FormatDateTime('yyyy-mm-dd', Now); // 使用日期格式
+  
+  fedtFShtName.Text := TempStr; // 直接赋值
+end.
+```
\ No newline at end of file