Changeset 383 for trunk/Include/Classes/System
- Timestamp:
- Nov 17, 2007, 9:34:36 AM (17 years ago)
- Location:
- trunk/Include/Classes/System
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Include/Classes/System/String.ab
r370 r383 6 6 7 7 #ifdef __STRING_IS_NOT_ALWAYS_UNICODE 8 9 #ifndef UNICODE 8 10 TypeDef StrChar = Char 9 #ifndef UNICODE10 11 #define __STRING_IS_NOT_UNICODE 11 12 #endif 13 14 #endif 15 16 #ifndef __STRING_IS_NOT_UNICODE 17 TypeDef StrChar = WCHAR 18 19 #ifdef UNICODE 20 #define __STRING_IS_UNICODE 12 21 #else 13 TypeDef StrChar = WCHAR14 #ifndef UNICODE15 22 #define __STRING_UNICODE_WINDOWS_ANSI 16 23 #endif … … 77 84 Assign(initStr + start, length) 78 85 End Sub 79 86 80 87 Sub String(initStr As String) 81 88 If Not String.IsNullOrEmpty(initStr) Then … … 592 599 End If 593 600 End Sub 594 601 595 602 Const Sub rangeCheck(start As Long, length As Long) 596 603 If start < 0 Or start > This.m_Length Or length < 0 Then -
trunk/Include/Classes/System/Text/StringBuilder.ab
r370 r383 520 520 If Not String.IsNullOrEmpty(s) Then 521 521 s.CopyTo(startIndex, chars, 0, length) 522 size = s.Length522 size = length 523 523 End If 524 524 End Sub
Note:
See TracChangeset
for help on using the changeset viewer.