LkJSON 2. "Datensatz" lesen

[DelTurbo]

Damit sich keiner die mühe macht und sucht. Ich habe etwas gefunden. Mein JSON sieht nun so aus.

Code:

[{
      "id":"0.0.127.in-addr.arpa.",
      "url":"/servers/localhost/zones/0.0.127.in-addr.arpa.",
      "name":"0.0.127.in-addr.arpa",
      "kind":"Master",
      "dnssec":false,
      "masters":[

      ],
      "serial":32513,
      "notified_serial":000000,
      "last_check":0
   },
   {
      "id":"0000.in-addr.arpa.",
      "url":"/servers/localhost/zones/0000.in-addr.arpa.",
      "name":"0000.in-addr.arpa",
      "kind":"Master",
      "dnssec":false,
      "masters":[

      ],
      "serial":32513,
      "notified_serial":0000,
      "last_check":0
   }]

Neu sind die [] am Anfang und ende. Dann kann ich das mit diesem Programm auslesen.

Delphi-Quellcode:

program sample6;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  windows,
  classes,
  Variants,
  uLkJSON in 'uLkJSON.pas';

var
  Messages  :TlkJSONbase;
  i         :Integer;
begin
    messages:=TlkJSONstreamed.loadfromfile('test1.txt') as TlkJSONbase;
    for I := 0 to messages.Count-1 do begin
        WriteLn(VarToStr(messages.Child[I].Field['url'].Value));
    end;
    readln;
end.

Gefunden habe ich das hier.
Ich kam am anfang mit dem Child nicht klar.

Trotzdem danke an alle und noch einen schönen Ostermontag. Meiner ist gerettet