Changeset 134
- Timestamp:
- Mar 5, 2007, 7:05:56 PM (18 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
Include/Classes/System/String.ab
r132 r134 394 394 End Function 395 395 396 Sub ToLower() 396 Const Function ToLower() As String 397 ToLower.ReSize(m_Length) 397 398 Dim i As Long 398 For i = 0 To m_Length399 Chars[i] = _System_ASCII_ToLower(Chars[i])399 For i = 0 To ELM(m_Length) 400 ToLower.Chars[i] = _System_ASCII_ToLower(Chars[i]) 400 401 Next 401 End Sub 402 403 Sub ToUpper() 402 End Function 403 404 Const Function ToUpper() As String 405 ToUpper.ReSize(m_Length) 404 406 Dim i As Long 405 For i = 0 To m_Length406 Chars[i] = _System_ASCII_ToUpper(Chars[i])407 For i = 0 To ELM(m_Length) 408 ToUpper.Chars[i] = _System_ASCII_ToUpper(Chars[i]) 407 409 Next 408 End Sub410 End Function 409 411 410 412 Sub Swap(ByRef x As String)
Note:
See TracChangeset
for help on using the changeset viewer.