Json Array Oluşturma

[MirDurmaz]

Merhaba,
Benim oluşturmak istediğim json örneği:

{
   "registration_ids" : [
        "crX7c-FfQXunMB5dqo"
    ],
   "notification" : {
       "title": "Hi",
       "body" : "Notification test"
   }

}

Bu örnek de benim oluşturamadığım yer resgistration_ids isimli diziye  elemanları namesiz oluşturmam gerekiyor ama bunu bir türlü başaramadım. İçini boş bırakttiğimda karşı taraf kabul etmiyor.Yardımcı olabilir misiniz ?

   

wrtJSON.Formatting := TJsonFormatting.Indented;
  wrtJson.WriteStartObject;
  wrtJson.WritePropertyName('registration_ids');
  wrtJson.WriteStartArray;
  wrtJson.WriteStartObject;
  wrtJson.WritePropertyName('');
  wrtJson.WriteValue(strToken);
  wrtJson.WriteEndObject;
  wrtJson.WriteEndArray;
  wrtJson.WritePropertyName('notification');
  wrtJSON.WriteStartObject;
  wrtJSon.WritePropertyName('title');
  wrtJson.WriteValue(edtBaslik.Text);
  wrtJson.WritePropertyName('body');
  wrtJson.WriteValue(edtMesaj.Text);
  wrtJSON.WriteEndObject;
  wrtJSON.WriteEndObject;

Bu kod ile oluşan Json örneği:

{
   "registration_ids": [
        {
            "": "crX7c-FfQXunMB5dqoaaUM:APA91bHOuvOioxEjciJS9V04g9"
    ],
   "notification": {
       "title": "Hello",
       "body": "Delphi"
   }
}

[RAD Coder]

   

[MirDurmaz]

Çok Teşekkürler