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

Timestamp:

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

Author:

イグトランス (egtra)

Message:

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

File:

• trunk/ab5.0/ablib/src/Classes/System/Text/Encoding.ab (modified) (1 diff)

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