;------------------------------------------------------------------------------------------------------------------------------------------
#DefineFunction udfIsLowerCase (strChar)
Return strChar == StrLower (strChar)
#EndFunction
;------------------------------------------------------------------------------------------------------------------------------------------

;------------------------------------------------------------------------------------------------------------------------------------------
#DefineFunction udfIsUpperCase (strChar)
Return strChar == StrUpper (strChar)
#EndFunction
;------------------------------------------------------------------------------------------------------------------------------------------

;------------------------------------------------------------------------------------------------------------------------------------------
#DefineFunction udfSayCase (blnValue)
Return ItemExtract (1 + blnValue, "lowercase,uppercase", ",")
#EndFunction
;------------------------------------------------------------------------------------------------------------------------------------------


; Test.
strUpperChar = "D"
strLowerChar = "d"
strMsgTitleUp = "Demo: udfIsUpperCase"
strMsgTitleLo = "Demo: udfIsLowerCase"
Message (strMsgTitleUp, StrCat (strUpperChar, " is ", udfSayCase ( udfIsUpperCase (strUpperChar))))
Message (strMsgTitleUp, StrCat (strLowerChar, " is ", udfSayCase ( udfIsUpperCase (strLowerChar))))
Message (strMsgTitleLo, StrCat (strUpperChar, " is ", udfSayCase (!udfIsLowerCase (strUpperChar))))
Message (strMsgTitleLo, StrCat (strLowerChar, " is ", udfSayCase (!udfIsLowerCase (strLowerChar))))
Exit
;------------------------------------------------------------------------------------------------------------------------------------------