Some examples.
Code: Select all
x.POINT
y.POINT
Debug CompareStructure(x, y) ; Return 1 - equal.
Code: Select all
x.POINT
y.POINT\x = 10
Debug CompareStructure(x, y) ; Return 0 - not equal.
Code: Select all
Structure Test
x.l
List l.Test()
EndStructure
x.Test
y.Test
AddElement(x\l())
x\l()\x=10
AddElement(y\l())
y\l()\x=10
Debug CompareStructure(x, y) ; Return 1 - equal.
Code: Select all
Structure Test
x.l
List l.Test()
EndStructure
x.Test
y.Test
AddElement(x\l())
x\l()\x=10
AddElement(y\l())
y\l()\x=10
AddElement(y\l())
Debug CompareStructure(x, y) ; Return 0 - not equal.