How to concatenate array of string elements into a string

arrays string delphi string-concatenation delphi-2007
Hwau picture Hwau · May 10, 2015 · Viewed 7.6k times · Source

How should an array of string be converted into string (With separator char)? I mean, is there some system function I can use instead of writing my own function?

Answer

Jens Borrisholt picture Jens Borrisholt · May 11, 2015

Since you are using Delphi 2007 you have to do it you self:

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;

Simply traverse the array and concat it with your seperator.

And a small test example:

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

Related questions

How to add new elements to an array?

I have the following code: String[] where; where.append(ContactsContract.Contacts.HAS_PHONE_NUMBER + "=1"); where.append(ContactsContract.Contacts.IN_VISIBLE_GROUP + "=1"); Those two appends are not compiling. How would that work correctly?

Read More
How to convert UTF-8 byte[] to string?

I have a byte[] array that is loaded from a file that I happen to known contains UTF-8. In some debugging code, I need to convert it to a string. Is there a one liner that will do this? Under …

Read More
How to convert Java String into byte[]?

Is there any way to convert Java String to a byte[] (not the boxed Byte[])? In trying this: System.out.println(response.split("\r\n\r\n")[1]); System.out.println("******"); System.out.println(response.split("\r\n\r\n")[1].getBytes().…

Read More