Decode JSON with Embarcadero Delphi XE2 example

interface
uses  ....,DBXJSON;

 private
    FJSONObject: TJSONObject; 
...
var
  S: TStringList;
  JsonArray, JsonArray1: TJSONArray;
  _messagetype,_nameStation,_installedCapacity,tramp1:string;
  i,j:integer;
begin
  S := TStringList.Create;
  S.LoadFromFile(getcurrentdir + '\' + ... + '.json');
  FJSONObject := TJSONObject.ParseJSONValue(S.Text) as TJSONObject;
  JsonArray := FJSONObject.Get('items').JsonValue as TJSONArray;
  for I := 0 to JsonArray.Size - 1 do
    begin
      _messagetype := trim((JsonArray.Get(i) as TJSONObject).Get('messageType').JsonValue.Value);
      ....// next values
      tramp1 := (JsonArray.Get(i) as TJSONObject).Get('productionUnits').JsonValue.ClassName;//check type
      if tramp1 = 'TJSONArray' then //if array and NOT empty; one question - two answers:)
        begin
          JsonArray1 := (JsonArray.Get(i) as TJSONObject).Get('productionUnits').JsonValue as TJSONArray;//if array then read to array
        for j := 0 to JsonArray1.Size - 1 do
        begin
          _nameStation := (JsonArray1.Get(j) as TJSONObject).Get('name').JsonValue.Value;
          _installedCapacity := (JsonArray1.Get(j) as TJSONObject).Get('installedCapacity').JsonValue.Value;
          ...
        end;
    end;
end;
//------------------------------
//JSON file example from new 2017 NordPoolSpot UMM system:
//------------------------------
{"items":
[
  {
   "messageType":1,  //read in example
   "unavailabilityType":2,
   "reasonCode":2,
   "eventStart":null,
   "eventStop":null,
   "unavailabilityReason":"TEST",
   "remarks":null,
   "productionUnits":[], //this is array! read in example, check type, load to TJsonArray
   "generationUnits":   
       [                 // next array, do as with "productionUnits", read "productionUnitName",...
          {
           "productionUnitName":"Power Plant x",
           "productionUnitEic":"21W1123600241XL3",
           "productionUnitInstalledCapacity":1955,
           "areaEic":"11XYZ-1001A0008Q",
           "areaName":"XT","fuelType":4,
           "name":"G-10",
           "eic":"41WLE-------TG8I",
           "installedCapacity":300,
           "powerFeedIn":null,
           "timePeriods":[
                          {
                           "unavailableCapacity":300,
                           "availableCapacity":0,
                           "eventStart":"2016-12-10T03:10:00Z",
                           "eventStop":"2016-12-16T05:10:00Z"
                          },
                          {
                           "unavailableCapacity":150,
                           "availableCapacity":150,
                           "eventStart":"2016-12-16T05:10:00Z",
                           "eventStop":"2016-12-17T05:10:00Z"
                          }
                         ]
          }
       ],
   "consumptionUnits":null,
   "transmissionUnits":null,
   "otherUnits":null,"assets":[],
   "marketParticipants":
       [
          {"name":"\"CocaCola Plant group\", AB","code":"A0001293A.LT"}
       ],
   "eventStatus":1,
   "cancellationReason":null,
   "messageId":"492bcb75-6175-40e9-9496-104e1a4f246b",
   "version":2,
   "publicationDate":"2016-12-10T12:41:30.480019Z",
   "publisherId":"NC0102",
   "publisherName":"\"CocaCola Plant group\", AB"
},
],"total":1}
P.S.: there is no "wraps" in original file

Geri klausimai darbinantis

1. Kada turėčiau pradėti darbą?
2. Ar darbe bus viršvalandžių, kokia jų apmokėjimo tvarka?
3. Kiek įmonėje darbuotojų?
4. Už kurias konkrečiai sritis būsiu atsakinga?
5. Kodėl ieškote naujo darbuotojo? Kodėl išeina iki šiol dirbęs žmogus?
6. Kam aš būsiu pavaldi?
7. Ar bus skirtas mobilusis telefonas darbui?
8. Ar reikės darbo reikalais naudoti asmeninį automobilį, jei taip – ar bus sudaroma panaudos sutartis, ar kompensuojami degalai? 9. Kokiems darbams turės būti teikiamas prioritetas pradėjus dirbti?
9. Kokiems darbams turės būti teikiamas prioritetas pradėjus dirbti?
10. Kokiu būdu įmonėje vyksta komunikacija bei užduočių paskirstymas?
11. Ar būsiu apmokoma, ar vyks darbų perdavimas? Jei taip – kas apmokys, kokiu būdu ir kiek laiko?
12. Ar pageidautina mano asmeninė iniciatyva, pasiūlymai, idėjos?
Skaitykite daugiau: http://bendraukime.lrytas.lt/isklausykite/darbdaviui-pazere-klausimu-pasiputimas-subliusko-akimirksniu.htm?utm_source=lrExtraLinks&utm_campaign=Copy&utm_medium=Copy

Dėl Krymo

Сегодня Беларусь попыталась блокировать рассмотрение крымского вопроса на Генассамблее ООН, такое предложение поддержали 32 страны,
 Первый замминистра информационной политики Эмине Джепар опубликовала список стран, поддержавших попытку Беларуси заблокировать на Генассамблее ООН резолюцию по Крыму. Соответствующий список Джепар обнародовала у себя в Facebook.
 "Предоставляю перечень стран, которые поддержали попытки Беларуси блокировать рассмотрение повестки дня. "Список друзей". От каждого из них можно ожидать голосования против резолюции по Крыму", - написала она.
1. Алжир
2. Ангола
3. Бангладеш
4.Беларусь
5. Боливия
6. Бруней
7. Бурунди
8. Китай
9. Коморские острова
10. Куба
11. КНДР
12. Египет
13. Индия
14. Индонезия
15. Иран
16. Кения
17. Киргизия
18. Лаосская ДР
19. Мьянма
20. Никарагуа
21. Россия
22. Сингапур
23. Судан
24. Сирия
25. Таджикистан
26. Узбекистан
27. Венесуэла
28. Вьетнам
29. Зимбабве
30. Ирак
31. Гамбия
32. Эритрея.
Сегодня, 15 ноября, около 23:00 по Киеву в третьем комитете Генассамблеи ООН запланировано голосование по проекту резолюции "Ситуация с правами человека в АРК Крым и Севастополь", инициированной Украиной. ,

СКАТЫ

Продажні скоти муженко, гелетей, назаров будуть скарані нагорло. Не нашим продажним судом, А СУДОМ БАТЬКІВ, СИНІВ, БРАТІВ, ДРУЖИН, ДІТЕЙ, ДРУЗІВ УБИТИХ І СКАЛІЧЕНИХ БІЙЦІВ І ОФІЦЕРІВ. РАНО ЧИ ПІЗНО БУДУТЬ ЗНИЩЕНІ А ЇХ ГНІЗДА - СПАЛЕНІ. ЇХ НАЩАДКИ БУДУТЬ ВІЧНО НА ЧУЖИНІ І ЦУРАТИСЯ І МІНЯТИ ПРІЗВИЩА, ЇХ ІМЕНА НАВІКИ ПРОКЛЯТІ БАГАТЬМА ПОКОЛІННЯМИ УКРАЇНЦІВ. НА НИХ Є ВИЩИЙ СУД - ВІН НЕ МАЄ ПРОДАЖНИХ СУДДІВ, ПРОКУРОРІВ, АДВОКАТІВ. ЦЕЙ СУД НЕ ЩАДИТЬ І Н Е З А Л И Ш А Є Н І С Л І Д І В, Н І М О Г И Л...

Gintariuks žemaitiškai

Nu vod pažiūrėti, kaip stanovitsa slozno kumštis, kogda vierx biriot emocijų ir nie įstatymas...... V reguliariai benzino kvapas pieried įstatymo vsie plokšti v niezavisimosti fa svieta ožkos tautybės ar rieligioznix ubizdienij, ir kogda jis sobliudajietsa vsie normaliai xodit pagal solnciem, ir dink iš niekur nikogo nievitisniajet (naprimier mienia yra norviegiji :)) bet........ Jiest osobiennij žmonių, katorij šešis lt nieimiejiet dazie priedstavlienija apie diemokratiji ir svabodie, apie spraviedlivosti ir pravopariadkie, k koma tiek prikasajietsa pojavliajietsa krovavij slied ir vsio obsirajietsa, bet scitajiet cto imiejiet teisę imiet jiedinstviennojie pravilnojie mnienijie........ Dlia osobiennix povtorius jiescio - vies taikos dierzitsa ant zakonax ir dogovorax pieried kotorimi plokščias ir obiazanni vsie podpisavsijiesia,..... Ploxijie ar xarosijie ten vsiegda diskusijonnij vapros ir jieslie ix pomieniat, etim zanimajietsa diplamaticieskijie paslaugas, kaip primieru skolko riefieriendumov uzie pravodila sotlandija nasciot vixoda yra angliskogo korolievstva ir posliedniem pragalasovalo per 43 %, tačiau ani nienacali visieliat anglikonų arba vsiex tuziemciev...... Blie į snd poimitie nakoniec, cto pok rossijskaja politika budiet upieratsa lzzi ir taip toliau, krovi niebudiet sobliudat miezdunarodnogo teises, ant tavęs vsiex taikos budiet smotriet kaip nieodiekvatnix ir opasnix....... Cio su tut griexa tojit, tu siditie v glubokoi zopie ir vies taikos ilgai usiol v pieriot bet tu vsio pitajietsa pratiagivat ranka pomosci bet..... Ani pindosi, geieuropeici ir vsiakaja sval, kudaz su jais vasix skriepov grin emoticon mnie ocien xoroso izviestni ocien xorosijie ir dobrijie kaciestva ruskogo tautų ir ten mnie ocien nravitsa ir ten aš uvazaju, bet žinau, kad takzie xoroso skolko niekšelis tozie v duose jies, ir Tu "cariok" xoroso znaja ten, vipustil ten šūdas v naruzu....... Niedavno smotriel jievpatorskojie televizijos, gdie ruskijie babi su portrietom putinas, ant kolieniax otkritim tiekstom prosit jix sposti fa ruskix fasistov, katorijie ottiesniajiet "starozilov", Ir "piliat" nusikalstamumo ir kaip vsiu rossi, bet nvpl babi adnovriemieno bojitsa siebie priznatsa kas podierzivaja etot putinskij biespridiel birut otvietsviennost ant siebia......... Tak cto riebiatki astajotsa obizatsa tau tiek ant samix siebia wink emoticon niciego licnogo, paprastas xocietsa cto poniali mane mate antra, blizkijie sosiedi vsiozie ir skyrybos mus povier niepomoziet wink emoticon kad ir kaip norėčiau xotiel cto rossi kaip mozno bistrej įgyvendintas xotia urovnia kanada........ grin emoticon