Code: Select all
Structure Person
Name.s
Age.l
Country.s = "US"
EndStructure
Global People.Person
Code: Select all
Structure Person
Name.s
Age.l
Country.s = "US"
EndStructure
Global People.Person
Code: Select all
Structure Person
Name.s
Age.l
Country.s
EndStructure
Global DefaultPersonValue.Person: DefaultPersonValue\Country = "US" ;Define default for Person
Global People.Person = DefaultPersonValue ;Use default
Global OtherPeople.Person ;No default
Code: Select all
Structure MySquare
x.d ; default to 0.0 as usual
y.d ; default to 0.0 as usual
Width.d = 5.0
Height.d = 5.0
Scale.d = 1.0
EndStructure
A.MySquare
Debug A\Scale ; would be 1.0
*B.MySquare = AllocateStructure(MySquare)
Debug *B\Scale ; would be 1.0
*C.MySquare = AllocateMemory(SizeOf(MySquare))
Debug *C\Scale ; would be 0.0 - not yet initialized!
;
InitializeStructure(*C, MySquare)
Debug *C\Scale ; would be 1.0
;
ClearStructure(*C, MySquare)
Debug *C\Scale ; would be cleared to 0.0