Changeset 400 for trunk/Include/Classes/ActiveBasic/CType
- Timestamp:
- Jan 22, 2008, 9:19:59 PM (16 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Include/Classes/ActiveBasic/CType/CType.ab
r388 r400 86 86 End Function 87 87 88 /*! 89 @brief ASCIIの表示文字かどうか 90 @author Egtra 91 @date 2007/11/25 92 制御文字でないもの、空白も表示文字に含む 93 */ 88 94 Function IsPrint(c As WCHAR) As Boolean 89 95 Return (c As DWord - &h20) < (&h7e - &h20) … … 98 104 Function IsPunct(c As WCHAR) As Boolean 99 105 Return c < &h7f And IsGraph(c) And (Not IsAlnum(c)) 106 End Function 107 108 /*! 109 @brief ASCIIの空白文字かどうか 110 @author Egtra 111 @date 2008/01/22 112 */ 113 Function IsSpace(c As WCHAR) As Boolean 114 Return c As DWord - 9 < 4 Or c = &h20 ' &h41 = Asc("A") 100 115 End Function 101 116 … … 210 225 @overload 211 226 */ 227 Function IsSpace(c As CHAR) As Boolean 228 Return IsSpace(Detail.Widen(c)) 229 End Function 230 231 /*! 232 @overload 233 */ 212 234 Function IsUpper(c As CHAR) As Boolean 213 235 Return IsUpper(Detail.Widen(c)) … … 235 257 End Function 236 258 237 End Namespace 238 End Namespace 259 End Namespace 'CType 260 End Namespace 'ActiveBasic
Note:
See TracChangeset
for help on using the changeset viewer.