arrays – 如何将字符串元素数组连接成一个字符串

发布时间：2020-12-15 04:34:34 所属栏目：大数据来源：网络整理

导读：如何将字符串数组转换为字符串(使用分隔符char)？我的意思是,是否有一些系统功能我可以使用而不是编写自己的功能？解决方法既然您使用的是Delphi 2007,那么您必须自己动手： function StrArrayJoin(const StringArray : array of string; const Separator

如何将字符串数组转换为字符串(使用分隔符char)？我的意思是,是否有一些系统功能我可以使用而不是编写自己的功能？

解决方法

既然您使用的是Delphi 2007,那么您必须自己动手：

function StrArrayJoin(const StringArray : array of string; const Separator : string) : string;
var
  i : Integer;
begin
  Result := '';
  for i := low(StringArray) to high(StringArray) do
    Result := Result + StringArray[i] + Separator;

  Delete(Result,Length(Result),1);
end;

只需遍历阵列并与分离器连接即可.

还有一个小测试例子：

procedure TForm1.FormCreate(Sender: TObject);
begin
  Caption :=StrArrayJoin(['This','is','a','test'],' ');
end;

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!