json - BaaS Kinvey SignupUser の JSON UserData 形式

Question

新しい Kinvey ユーザーの_pushTBackEndUsers列を設定するために、mBaaS コンポーネントを使用して、JSONObject UserDataをプロシージャーに渡す必要があります。

BackendUsers1->Users->SignupUser(AUserName, AUserData, AUserData, ACreatedObject);

要求された json の一部は次のとおりです。

{
  "_push" : 
  {
    "_devicetokens": [
      "ffcde6a5918106507a460d9709462f5ba37f70aa76d64fa21a4bfd.........."
    ]
  }
}

これは、以下のソース コードで取得した間違った json です。

{
  "_push" : 
  {
    "_devicetokens" : "[\"ffcde6a5918106507a460d9709462f5ba37f70aa76d64fa21a4bfd..........\"]"
  }
}

私が間違っていることは何ですか？

#define TOKENS "ffcde6a5918106507a460d9709462f5ba37f70aa76d64fa21a4bfd.........."

void __fastcall TMainForm::CreateUserButtonClick(TObject *Sender)
{
TBackendEntityValue ACreatedObject;
TJSONObject *JSONObject, *JSONPush;
TJSONPair *Pair, *Pair2;
TJSONArray *Array;
  JSONObject = new TJSONObject;
  Pair = new TJSONPair("first_name", FirstNameEdit->Text);
  JSONObject->AddPair(Pair);
  Pair = new TJSONPair("last_name", LastNameEdit->Text);
  JSONObject->AddPair(Pair);
  Pair = new TJSONPair("email", EMailEdit->Text);
  JSONObject->AddPair(Pair);
  Array = new TJSONArray;
  Array->Add((String) TOKENS);
  Pair2 = new TJSONPair("_devicetokens", Array->ToString());
  JSONPush = new TJSONObject(Pair2);
  Pair = new TJSONPair("_push", JSONPush);
  JSONObject->AddPair(Pair);    
  BackendUsers1->Users->SignupUser(UserIdEdit->Text, PasswordEdit->Text, JSONObject, ACreatedObject);    
  delete JSONObject;
}
//---------------------------------------------------------------------------