Previous JSON example now with SuperObject

program JSONTest2;

{$APPTYPE CONSOLE}

uses
  Classes,
  SysUtils,
  superobject;

function GetJSonObjectFor(stl : TStringList) : ISuperObject;
var RootJsonObj, PairsJsonObj : ISuperObject;
    AJsonArray : ISuperObject;
    AJsonPair : ISuperObject;
    i : Integer;
begin
  AJsonArray := TSuperObject.Create(stArray);
  RootJsonObj := TSuperObject.Create();
  RootJsonObj['Array'] := AJsonArray;

  for i := 0 to stl.Count-1 do
  begin
    PairsJsonObj := TSuperObject.Create();
    PairsJsonObj.S['ID'] :=  stl.Names[i];
    PairsJsonObj.S['Status'] := stl.ValueFromIndex[i];
    AJsonArray.AsArray.Add(PairsJsonObj);
  end;

  result := RootJsonObj
end;

var
  Sourcedata : TStringList;
  AJsonObj : ISuperObject;

begin
  try
    SourceData := nil;
    AJsonObj := nil;
    try
      SourceData := TStringList.Create;
      SourceData.Values['14'] := 'AOK';
      SourceData.Values['15'] := 'Bad';
      SourceData.Values['16'] := 'AOK';

      AJsonObj := GetJSonObjectFor(SourceData);

      writeln(AJsonObj.AsString);
      readln;
    finally
      SourceData.Free;
      AJsonObj := nil;
    end;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.