Parsing json array using uLkjson

Back into delphi7…

Needing to transfer some data over the net from a server to my delphi application, it seemed like a good idea to use JSON and according to json.org there are no less than three libraries for parsing json in delphi. The first one webstart / Delphi web utils looked pretty good, but all documentation and examples was in Spanish… Well, learning Spanish is no bad plan, but not today.

The next one, JSON Delphi Library, uLkJSON seemed a bit more simple. No documentation but a few examples – of which none covered arrays which I needed to use…

At last, JSON superobject seemed to have everything, but didn’t compile under delphi 7.

Well, then, use the source, Luke,

Digging through the source of uLkJSON, i managed at least to dig information out of the arrays I had put up. Having a form with a Memo named Memo1, this lists the names and values of the arrays into the Memo:

procedure listarray(returnval: string);
var
  systems : TStrings;
  returnval: string;
  json,item:TlkJSONbase;
  i,j: integer;
  list: TlkJSONObject;
begin
  json:= TlkJSON.ParseText(returnval);
  for i:=0 to pred(json.Count) do begin
    item:=TlkJSONObject(json).child[i]; 
// This is the named array, name in name, the array in Objvalue
    Memo1.Lines.Add(TlkJSONobjectmethod(item).Name);
    list:=TlkJSONobject(TlkJSONobjectmethod(item).Objvalue);
{   list is the array it self. This may be too much jiggling back and forth between object types, but at least it works...}
    for j := 0 to pred(TlkJSONobject(list).count) do
      Memo1.Lines.add('->'+tlkJSONlist(list).Child[j].Value);
    end;
  end;
end;

Not too hard, — if it just had been some documentation or an example on this, that would have saved me a day. Hopefully this saves a day for someone else.