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

Timestamp:

Nov 3, 2007, 5:18:30 PM (17 years ago)

Author:

dai

Message:

System.GCクラスを追加。
64ビットコンパイラで生じる警告を改修した。

File:

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

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

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