Changeset 473 for trunk/Include/Classes/System/IO/StreamWriter.ab

Timestamp:

Mar 12, 2008, 9:54:46 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

実験として書いていたControlクラスを追加（せめてコミット前に既存のContorolに混ぜようとしたがコンパイルできなかった）。
ほかForms, Drawing及びGDI+の修正。

File:

• trunk/Include/Classes/System/IO/StreamWriter.ab (modified) (3 diffs)

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

@@ +1 @@
+/*
+@file Include/Classes/System/IO/StreamWriter.ab
+@brief StreamWriterの実装。
+*/
+
 Namespace System
 Namespace IO
-    
-    
+
+/*
+@biref ストリームへの書き込みを行うTextWriterの派生。
+@date 2008/03/09
+@auther Egtra
+*/
 Class StreamWriter
     Inherits TextWriter
 Public
     /*
-    @date 2008/02/25
+    @date 2008/03/09
     @auther Egtra
     */
@@ -15 +24 @@
 
     /*
-    @date 2008/02/25
+    @date 2008/03/09
     @auther Egtra
     */
     Sub StreamWriter(stream As Stream)
         init(stream)
+    End Sub
+
+    Override Sub Flush()
+        Dim len = buf.Length
+        If len > 0 Then
+            s.Write(StrPtr(buf) As *Byte, 0, len)
+            buf.Length = 0
+        End If
     End Sub
 
@@ -104 +121 @@
 End Class
 
-
 End Namespace
 End Namespace