Building a JSON object in TMS WEB Core with arrays

WEB TMS Web Core VSC
2

Just after I reqgistered this I found Bruno's response on this :

Solved it for me :slight_smile:

procedure TForm1.WebButtonParseClick(Sender: TObject);
var
  lJSONObject : TJSONObject;
  lArrayObject : TJSONObject;
  lJSONArray : TJSONArray;
begin
  lJSONObject := TJSONObject.Create;
  lJSONObject.AddPair('key1', 'value1');
  lJSONObject.AddPair('key2', 'value2');

  lJSONArray := TJSONArray.Create;
  lJSONArray.Add(lJSONObject);

  lArrayObject := TJSONObject.Create;
  lArrayObject.AddPair('Array1', lJSONArray);
  WebMemoLog.Lines.Add(LArrayObject.ToString);

  lArrayObject.Free;
  lJSONArray.Free;
  lJSONObject.Free;
end;

Regards
Eirik