example_03.bmx 490 B

1234567891011121314151617181920212223242526
  1. SuperStrict
  2. Framework Text.PersistenceXml
  3. Import BRL.StandardIO
  4. Type abc
  5. Field map:TMap = New TMap
  6. End Type
  7. Local persist:TPersist = New TXMLPersistenceBuilder.Build()
  8. Local map:TMap = New TMap
  9. map.Insert("fish", "chips")
  10. map.insert("abc", New abc)
  11. TPersist.format = True
  12. Local s:String = persist.SerializeToString(map)
  13. Print s + "~n~n~n"
  14. persist.Free()
  15. Local obj:Object = persist.DeSerializeObject(s)
  16. persist.Free()
  17. Print persist.SerializeToString(obj)