There exist two UDT constructs with each 288 items to be compared to each other. As soon as the first result (tf) becomes true, the function should end.
The "Do Until" statement below is only to show my intention. In fact, it does not stop the code execution if tf becomes %True.
I simply don't know the syntax of PB to manage this. A direct compare such as "if CurrentDim = DbaseDim then" fails.
Function CompareDim(CurrentDim as DimSett, DbaseDim as DimSett) as long
local tf as long
Do Until tf = %True 'this line shows my intention
tf = CurrentDim.angle <> DbaseDim.angle
tf = CurrentDim.angleFormat <> DbaseDim.angleFormat
tf = CurrentDim.Arrow = DbaseDim.Arrow
tf = CurrentDim.ArrowAngle <> DbaseDim.ArrowAngle
tf = CurrentDim.ArrowMode <> DbaseDim.ArrowMode
tf = CurrentDim.ArrowSize <> DbaseDim.ArrowSize
tf = CurrentDim.aspect <> DbaseDim.aspect
tf = CurrentDim.bold <> DbaseDim.bold
tf = CurrentDim.charSpace <> DbaseDim.charSpace
....
....
....
The "Do Until" statement below is only to show my intention. In fact, it does not stop the code execution if tf becomes %True.
I simply don't know the syntax of PB to manage this. A direct compare such as "if CurrentDim = DbaseDim then" fails.
Function CompareDim(CurrentDim as DimSett, DbaseDim as DimSett) as long
local tf as long
Do Until tf = %True 'this line shows my intention
tf = CurrentDim.angle <> DbaseDim.angle
tf = CurrentDim.angleFormat <> DbaseDim.angleFormat
tf = CurrentDim.Arrow = DbaseDim.Arrow
tf = CurrentDim.ArrowAngle <> DbaseDim.ArrowAngle
tf = CurrentDim.ArrowMode <> DbaseDim.ArrowMode
tf = CurrentDim.ArrowSize <> DbaseDim.ArrowSize
tf = CurrentDim.aspect <> DbaseDim.aspect
tf = CurrentDim.bold <> DbaseDim.bold
tf = CurrentDim.charSpace <> DbaseDim.charSpace
....
....
....
Comment