Changeset 385 for trunk/Include/Classes/ActiveBasic/Strings/Strings.ab

Timestamp:

Nov 20, 2007, 12:04:07 AM (17 years ago)

Author:

イグトランス (egtra)

Message:

例外クラスの実装。ExceptionTestでSystem.Exceptionを使用するようにした。
StringBuilderでコメント化されていた例外を投げる処理を有効にした（除OutOfMemory）。
Str$の実装にSPrintfなどを使用するようにした。
毎回Object.ReferenceEquals(xxx, Nothing)と打つのが面倒なので、IsNothingを導入。

File:

• trunk/Include/Classes/ActiveBasic/Strings/Strings.ab (modified) (2 diffs)

trunk/Include/Classes/ActiveBasic/Strings/Strings.ab

@@ -95 +95 @@
     ChrCmp = ChrCmp(s1, s2, System.Math.Min(size1, size2))
     If ChrCmp = 0 Then
-        ChrCmp = ( size1 - size2 ) As Long
+        ChrCmp = (( size1 - size2 ) As LONG_PTR) As Long
     End If
 End Function
@@ -102 +102 @@
     ChrCmp = ChrCmp(s1, s2, System.Math.Min(size1, size2))
     If ChrCmp = 0 Then
-        ChrCmp = ( size1 - size2 ) As Long
+        ChrCmp = (( size1 - size2 ) As LONG_PTR) As Long
     End If
 End Function