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

如何将字符串数组转换为字符串(使用分隔符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;

原文地址：https://www.jb51.cc/delphi/239383.html