delphi 两字符串之间添加分隔符

本文整理自网络，侵删。

 
function AddStr(const Str: string; const AdditionalStr: string; const DelimiterStr: string): string;
begin
  if Str = EmptyStr then
  begin
    Result := AdditionalStr;
  end
  else
  begin
    Result := Str + DelimiterStr + AdditionalStr;
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
Memo1.Text:=AddStr('123----456----789','8888','----');
//原始数据：
//123----456----789
//处理后
//123----456----789----8888
end;
 

相关阅读 >>

Delphi显示圆形头像circle image

Delphi cpu窗口的扩展学习

Delphi repeat 递增/递减输出

Delphi 相对路径和绝对路径的转换

Delphi 复制拷贝文件目录函数

Delphi - 如何执行windows、osx、linux的外部程序？

Delphi 输入法设置(imemode与imename)

Delphi读取excel文件-统计全部工作表中内容相同单元格出现次数

Delphi xe5 android获取手机联系人，并用listview显示

Delphi在memorystream查找字符串

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 两字符串之间添加分隔符