BEGIN
BOOL _bEqual
RECORD (SD.BIG) _A
RECORD (SD.BIG) _B
REDIM _A[20]
REDIM _B[20]
INT _firstColNr, _lastColNr
_firstColNr := 1
_lastColNr := _A\CNR
_A[1]^R1 := 1
_A[2]^R1 := 2
DELAY 1[s]
_B[1]^R1 := 1
_B[2]^R1 := 2
_bEqual := %StructCmp(_A[1]^_firstColNr,_A[2]^_lastColNr,_B[1]^_firstColNr,1)
;result is @TRUE
_bEqual := %StructCmp(_A[1]^_firstColNr,_A[2]^_lastColNr,_B[1]^_firstColNr,2)
;result is @FALSE, because the time of values are different
END
Pridať komentár