arrays - 如何将字符串元素数组连接成字符串

Question

如何将字符串数组转换为字符串(带分隔符)？我的意思是，我可以使用一些系统函数来代替编写自己的函数吗？

Answer 1

由于您使用的是 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;