Changeset 435 for trunk/Include/Classes/System/Text
- Timestamp:
- Feb 28, 2008, 1:39:16 AM (17 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/Include/Classes/System/Text/StringBuilder.ab
r388 r435 387 387 388 388 Dim s = New StringBuilder(capacity, maxCapacity) 389 Dim curPos = 0 As Long 389 Dim curPos = start 390 Dim last = start + count 390 391 Do 391 392 Dim nextPos = ActiveBasic.Strings.ChrFind(VarPtr(chars[curPos]) As *StrChar, size As SIZE_T, StrPtr(oldStr), oldStr.Length As SIZE_T) As Long 392 If nextPos = -1 As SIZE_T Then 393 Exit Sub 393 If nextPos = -1 As SIZE_T Or curPos > last Then 394 s.appendCore(chars, curPos, size - curPos) 395 Exit Do 394 396 End If 395 397
Note:
See TracChangeset
for help on using the changeset viewer.