频道分类

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

作者:admin 来源: 日期:2020/4/13 13:03:47 人气: 标签:

 
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 Edit只允许输入数字和小数点下一篇:没有资料