Changeset 388 for trunk/Include/Classes/ActiveBasic

Timestamp:

Nov 25, 2007, 4:31:35 PM (16 years ago)

Author:

イグトランス (egtra)

Message:

Stringなどで例外を投げるようにした。
#147の解決。
CType ASCII文字判定関数群の追加。

Location:

trunk/Include/Classes/ActiveBasic

Files:

• CType (added)
• CType/CType.ab (added)
• Strings/SPrintF.ab (modified) (4 diffs)

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

@@ -731 +731 @@
 End Function
 
+/*
+@brief  0からFまでの文字を収めた表
+@author egtra
+*/
+Dim HexadecimalTable[&h10] = [&h30, &h31, &h32, &h33, &h34, &h35, &h36, &h37, &h38, &h39, &h41, &h42, &h43, &h44, &h45, &h46] As Byte
+
 /*!
 @author Egtra
@@ -739 +745 @@
     Dim x = xq As DWord
     While x <> 0
-        buf[i] = _System_HexadecimalTable[x And &h0f]
+        buf[i] = HexadecimalTable[x And &h0f]
         x >>= 4
         i--
@@ -754 +760 @@
     Dim i = MaxSizeLX
     While x <> 0
-        buf[i] = _System_HexadecimalTable[x And &h0f]
+        buf[i] = HexadecimalTable[x And &h0f]
         x >>= 4
         i--
@@ -1270 +1276 @@
                 s.Append(FormatString(params[i] As String, precision, fieldWidth, flags))
             Case &h63 'c
-                s.Append(FormatCharacter(params[i] As BoxedStrChar, precision, fieldWidth, flags) As Char)
+                s.Append(FormatCharacter(params[i] As BoxedStrChar, precision, fieldWidth, flags))
 '           Case &h6e 'n
             Case &h25 '%