Changeset 581 for trunk/ab5.0/ablib/src/Classes/System/Text

Timestamp:

Aug 9, 2008, 1:32:26 PM (16 years ago)

Author:

イグトランス (egtra)

Message:

Unicodeコンパイルで問題になる部分を修正

Location:

trunk/ab5.0/ablib/src/Classes/System/Text

Files:

• DecoderFallback.ab (modified) (1 diff)
• Encoding.ab (modified) (1 diff)

trunk/ab5.0/ablib/src/Classes/System/Text/DecoderFallback.ab

@@ -177 +177 @@
         End If
         With replacement
-            str = .StrPtr
-            len = .Length
+'           str = .StrPtr
+'           len = .Length
         End With
     End Sub

trunk/ab5.0/ablib/src/Classes/System/Text/Encoding.ab

@@ -151 +151 @@
     */
     Function GetBytes(s As String, index As Long, count As Long, bytes As *Byte, byteCount As Long) As Long
-        If chars = 0 Then
+        If ActiveBasic.IsNothing(s) Then
             Throw New ArgumentNullException("Encoding.GetBytes: An argument is null value.", "chars")
         ElseIf bytes = 0 Then