IsAlpha
bln IsAlpha (str)
;..........................................................................................................................................
; blnIsAlpha = ("" != strString) && ("" == StrClean (StrLower (strString), "esdiltnmarcpohfguwbxkyvjqz", "", @TRUE, 1))
;..........................................................................................................................................
; This one line function "IsAlpha" returns a boolean value,
; which indicates if the given strString contains only alpha characters or not.
; 'Alpha characters' is the char set of [a-zA-Z].
;..........................................................................................................................................


; Test.

:Test1
strString = ""
blnIsAlpha1 = ("" != strString) && ("" == StrClean (StrLower (strString), "esdiltnmarcpohfguwbxkyvjqz", "", @TRUE, 1)) ; @FALSE.

:Test2
strString = "Teststring."
blnIsAlpha2 = ("" != strString) && ("" == StrClean (StrLower (strString), "esdiltnmarcpohfguwbxkyvjqz", "", @TRUE, 1)) ; @FALSE.

:Test3
strString = "Teststring"
blnIsAlpha3 = ("" != strString) && ("" == StrClean (StrLower (strString), "esdiltnmarcpohfguwbxkyvjqz", "", @TRUE, 1)) ; @TRUE.

Exit