Changeset 581 for trunk/ab5.0/ablib/src/Classes/System/IO/BinaryWriter.ab

Timestamp:

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

Author:

イグトランス (egtra)

Message:

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

File:

• trunk/ab5.0/ablib/src/Classes/System/IO/BinaryWriter.ab (modified) (2 diffs)

trunk/ab5.0/ablib/src/Classes/System/IO/BinaryWriter.ab

@@ -165 +165 @@
         This.OutStream.Write( ToTCStr(value) As *Byte, 0, value.Length()*SizeOf(TCHAR))
     End Sub
- 
+#ifndef UNICODE
     /*
         現在のストリームに2バイト符号なし整数を書き込み、ストリームの位置を 2バイトだけ進めます。
@@ -172 +172 @@
         This.OutStream.Write( VarPtr(value) As *Byte, 0, SizeOf(Word))
     End Sub
- 
+#endif
     /*
         現在のストリームに4バイト符号なし整数を書き込み、ストリームの位置を 4バイトだけ進めます。