PureBoard

Code: Alles auswählen

EnableExplicit
PurifierGranularity(1, 1, 1, 1)

Structure teststructure
  a.s
  List b.i()
EndStructure

NewList Testlist.teststructure()

Define a, x, y, JSON, b = 47

For a = 0 To 100
  Debug a
  
  ClearList(Testlist())
  For x = 0 To 800
    AddElement(Testlist())
    Testlist()\a = "TestString"
    For y = 0 To 9
      AddElement(Testlist()\b())
      If a < b
        Testlist()\b() = a
      Else
        Testlist()\b() = a*a*a
      EndIf
    Next
  Next
  
  JSON = CreateJSON(#PB_Any)
  InsertJSONList(JSONValue(JSON), Testlist())
  ComposeJSON(JSON, #PB_JSON_PrettyPrint)
  FreeJSON(JSON)
Next