Delphi Can

Orjinalini görmek için tıklayınız: Bu json formatı nasıl okunur?
Şu anda (Arşiv) modunu görüntülemektesiniz. Orjinal Sürümü Görüntüle internal link
delphi 10.2 kullanıyorum.
[[1521640800000,9023,9026,9066.6,9005,336.64907933],[1521637200000,9018.8,9020,9080,8961.65350584,1049.84311013]]
Bu json formatı nasıl okunur yardımcı olabilir misiniz?
StrJson =
  '['+
  '{"EventType":49,"Code":"234","EventDate":"20050202", "Result":1},'+
  '{"EventType":48,"Code":"0120","EventDate":"20130201", "Group":"g1"}'+
  ']';
şu örnekteki gibi içteki parantezler {} olunca aşağıdaki kod ile veriler okunuyor, benim okumaya çalıştığım örnekteki gibi köşeli parantez olunca iç içe arrayı tanımlayamadım bir türlü.
procedure ParseJson;
var
  LJsonArr   : TJSONArray;
  LJsonValue : TJSONValue;
  LItem     : TJSONValue;
begin
   LJsonArr    := TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes(StrJson),0) as TJSONArray;
   for LJsonValue in LJsonArr do
   begin
      for LItem in TJSONArray(LJsonValue) do
      begin
          form1.Memo2.lines.Add(Format('%s : %s',[TJSONPair(LItem).JsonString.Value, TJSONPair(LItem).JsonValue.Value]));
      end;

   end;
end;
tam da bununla ilgili bir örnek açıkmış Smile

var
 TeklifList ,
 TeklifList2
 : TJSONArray;
 i,x:integer;
begin
 TeklifList   := TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes('[[1521640800000,9023,9026,9066.6,9005,336.64907933],[1521637200000,9018.8,9020,9080,8961.65350584,1049.84311013]]'),0) as TJSONArray;
 for I := 0 to TeklifList.Size - 1 do
 begin
  TeklifList2   := TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes(TeklifList.Get(i).ToString),0) as TJSONArray;
    for x := 0 to TeklifList2.Size - 1 do
     begin
         Memo1.Lines.Add(TeklifList2.Get(x).ToString );
     end;
 end;
end;



Memoya böyle çıktı verir...
Kod:
1521640800000
9023
9026
9066.6
9005
336.64907933
1521637200000
9018.8
9020
9080
8961.65350584
1049.84311013
@yhackup yardımcı olduğunuz için teşekkür ederim.
Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.

Bu kütüphaneyide araştırabilirisiniz. Bir çok profesyonel projede kullanılmaktadır.
(22-03-2018, Saat: 11:36)barisatalay Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.

Bu kütüphaneyide araştırabilirisiniz. Bir çok profesyonel projede kullanılmaktadır.

Tavsiyeniz için teşekkür ederim, biraz baktım. Türk geliştiricisi olması beni memnun etti. Json formatı ile tekrar işim olduğunda daha detaylı bir inceleme yaparım.
(22-03-2018, Saat: 16:40)canbir Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.
(22-03-2018, Saat: 11:36)barisatalay Adlı Kullanıcıdan Alıntı: Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.Linkleri Görebilmeniz İçin Üye Olmanız Gerekiyor. Üye Olabilmek İçin Lütfen Buraya Tıklayınız.

Bu kütüphaneyide araştırabilirisiniz. Bir çok profesyonel projede kullanılmaktadır.

Tavsiyeniz için teşekkür ederim, biraz baktım. Türk geliştiricisi olması beni memnun etti. Json formatı ile tekrar işim olduğunda daha detaylı bir inceleme yaparım.

Rica ederim o kütüphane hakkında yardıma ihtiyacınız olursa yazabilirsiniz Smile