ConvertArrayToString

gistfile1.txt

function StrArray(Const AnArray: array Of String): String;
var
  Index: integer;
begin
  Result := '[';
  Index := Low(AnArray);
  While Index < High(AnArray) Do
  Begin
    Result := Result + (AnArray[Index]) + ',';
    Inc(Index);
  End;
  Result := Result + (AnArray[High(AnArray)]);
  Result := Result + ']';
end;