forum.clarionlife.net

Код: Выделить всё

  Data
G_Address  Group,Type
Town         CString(41)
           end
gAddress   Group(G_Address).
                
gMen       Group
Name         Cstring(41)
Address      &G_Address
!Address      &Group  - Тоже не работает
           end
Root       &cJson  
  Code  
  gAddress.Town = 'Ростов-на-Дону'
  
  gMen.Name     = 'Игорь'  
  gMen.Address &= gAddress
  
  Root &= Json::CreateObject(gMen)
  If Not Root &= Null     
     Message(Root.ToString(True))
     SetClipBoard(Root.ToString(True))
     Root.Delete()
  end   

Код: Выделить всё

{
	"name":	"Игорь",
	"address":	"€P\u001F\u0003(h_d)\u0000\u0000\u0000"
}