Changeset 355 for trunk/Include/com/decimal.ab

Timestamp:

Oct 13, 2007, 2:11:22 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

FormatIntegerDを実装。
UnitTestの失敗時の表示を目立つようにした。
ArrayListを名前空間System.Collectionsに入れた。

File:

• trunk/Include/com/decimal.ab (modified) (2 diffs)

trunk/Include/com/decimal.ab

@@ -15 +15 @@
     Sub Decimal(d As Decimal)
 '       dec = d なぜかコンパイルできない
+        memcpy(VarPtr(dec), VarPtr(d.dec), Len(dec))
+    End Sub
+
+    Sub Decimal(ByRef d As DECIMAL)
         memcpy(VarPtr(dec), VarPtr(d), Len(dec))
     End Sub
@@ -340 +344 @@
 
     Const Function ToVariant() As Variant
-        Return New Variant(dec)
+        Return New Variant(This)
     End Function