LanHeron/WorkNote
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

vault backup: 2025-06-18 15:52:30

Browse Source
This commit is contained in:
SeedList
2025-06-18 15:52:30 +08:00
parent 2ec8dfa9a2
commit 1d87c1ae8f
1 changed files with 3 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -491,10 +491,9 @@ begin
end. end.
``` ```
## 转换了一下连接字符 ## 转换字符串数组的连接字符
当要设置自定义分隔符号，要将==**StringList.Delimiter := '-'; // 设置分隔符为分号**==往前面放
当要设置自定义分隔符号，`StringList.Delimiter := '-';` 需要写在转化语句之前
```uses MyClass,Variables,BaseUtil,CommonFunc,DataConst,CFFrm,CFSimplePropFrm,Forms,StdCtrls,Variants,SysUtils,Classes,Controls,Dialogs, ```uses MyClass,Variables,BaseUtil,CommonFunc,DataConst,CFFrm,CFSimplePropFrm,Forms,StdCtrls,Variants,SysUtils,Classes,Controls,Dialogs,
CHostIntf,ProductClas,DocClas,LoginClas,VirtualTrees,CEntClas,PathClas; CHostIntf,ProductClas,DocClas,LoginClas,VirtualTrees,CEntClas,PathClas;
@ -512,13 +511,10 @@ begin
if fedtusr_lb.Text <> '' then if fedtusr_lb.Text <> '' then
StringList.Add(fedtusr_lb.Text); StringList.Add(fedtusr_lb.Text);
==**StringList.Delimiter := '-'; // 设置分隔符为分号**== StringList.Delimiter := '-'; // 设置分隔符为分号
// 转换为逗号分隔的字符串 // 转换为逗号分隔的字符串
fedtFShtName.Text := StringList.DelimitedText; // 默认使用逗号作为分隔符 fedtFShtName.Text := StringList.DelimitedText; // 默认使用逗号作为分隔符
// 如果需要指定其他分隔符，可以设置Delimiter属性
// Result := StringList.DelimitedText;
finally finally
StringList.Free; StringList.Free;
end; end;