LkJSON Array?!? Lesen und ändern

[softtouch]

Nimm XSuperObject von hier: https://github.com/onryldz/x-superobject

Lade deine JSON Datei in die Variable json, zum Beispiel mit TFile.ReadAllText('filename')

In success hast Du dann true oder false, und in der Schleife in id und locked die jeweiligen Werte, welche Du natürlich dort weiter verarbeiten must.

Delphi-Quellcode:

procedure ParseJson;
var
  id,locked:string;
  success:boolean;
  obj:iSuperObject;
  arr:iSuperArray;
begin
  obj:=so(json);
  success:=obj.B['success'];
  arr:=obj.A['data'];
  for i:=0 to arr.Length-1 do
  begin
    id:=arr.O[i].S['id'];
    locked:=arr.O[i].S['locked'];
  end;
end;