Functions.Default 方法 |
命名空间: XSharp.RT
1IF uVar = NIL 2 uVar := uDefault 3ENDIF 4IF IsNil(uVar) 5 uVar := uDefault 6ENDIF
1FUNCTION Start() 2 LOCAL cCA1, cCA2 3 LOCAL nScore 4 LOCAL dDate 5 cCA1 := "CA" 6 cCA2 := "California" 7 // nScore 和 dDate 为 NIL 8 CheckArgs(cCA1, nScore, cCA2, dDate) 9 RETURN TRUE 10FUNCTION CheckArgs(uOne, uTwo, uThree, uFour) 11 Default(@uOne, "CA-VO") 12 // NIL 参数被分配一个值: 13 Default(@uTwo, 0) 14 Default(@uThree, NULL_STRING) 15 // NIL 参数被分配一个值: 16 Default(@uFour, 0.0.0) 17 RETURN TRUE
1FUNCTION CheckArgs2(uOne, uTwo, uThree, uFour) 2 Default(@uOne, "CA-VO") 3 EnforceNumeric(@uTwo) 4 EnforceType(@uThree, STRING) 5 EnforceType(@uFour, DATE) 6 RETURN TRUE