text.mod/persistencexml.mod/examples/example_04.bmx

SuperStrict

Framework Text.PersistenceXml
Import BRL.StandardIO
Import BRL.Random

Type abc
	Const bits:String = "<>`~~~q~r~n!@£$%^&*()|}{:?abcdefghijklmnopqrstuvwxyz¡€#¢∞§¶•ªº–≠"

	Field text:String
	Method Create:abc()
		For Local i:Int = 0 Until 128
			Local index:Int = Rand(0, bits.length-1)
			text:+ bits[index..index+1]
		Next
		
		Return Self
	End Method
End Type

SeedRnd(MilliSecs())


Local obj:abc = New abc.Create()
Print obj.text

Local persist:TPersist = New TXMLPersistenceBuilder.Build()

TPersist.format = True
Local s:String = persist.SerializeToString(obj)
Print s + "~n~n~n"

persist.Free()

obj = abc(persist.DeSerialize(s))
persist.Free()

Print persist.SerializeToString(obj)
Print obj.text