Changeset 497 for trunk/Include/Classes/System/IO/TextReader.ab

Timestamp:

Mar 28, 2008, 5:43:34 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

インクルードガードとその他不要な前処理定義などの削除

File:

• trunk/Include/Classes/System/IO/TextReader.ab (modified) (6 diffs)

trunk/Include/Classes/System/IO/TextReader.ab

@@ -31 +31 @@
     @auther Egtra
     */
-    Function Read(buffer As *StrChar, index As Long, count As Long) As Long
+    Function Read(buffer As *Char, index As Long, count As Long) As Long
         If buffer = 0 Then
         ElseIf index < 0 Then
@@ -76 +76 @@
 '                   Exit Do
             End Select
-            sb.Append(ch As StrChar) 'ToDo キャスト不要にすべきというチケットを書くこと
+            sb.Append(ch As Char) 'ToDo キャスト不要にすべきというチケットを書くこと
         Loop
         ReadLine = sb.ToString
@@ -93 +93 @@
                 Exit Function
             End If
-            sb.Append(ch As StrChar)
+            sb.Append(ch As Char)
         Loop
     End Function
@@ -109 +109 @@
     @auther Egtra
     */
-    Virtual Function ReadImpl(buffer As *StrChar, index As Long, count As Long) As Long
+    Virtual Function ReadImpl(buffer As *Char, index As Long, count As Long) As Long
         Dim i As Long
         Dim p = VarPtr(buffer[index])
@@ -118 +118 @@
                 Exit Function
             Else
-                p[i] = c As StrChar
+                p[i] = c As Char
             End If
         Next
@@ -171 +171 @@
     End Sub
 
-    Override Function ReadImpl(buffer As *StrChar, index As Long, count As Long) As Long
+    Override Function ReadImpl(buffer As *Char, index As Long, count As Long) As Long
 '       Using lock = cs.Lock
             ReadImpl = base.ReadImpl(buffer, index, count)