Changeset 208 for Include/com/vbobject.ab

Timestamp:

Apr 7, 2007, 10:20:40 PM (17 years ago)

Author:

イグトランス (egtra)

Message:

[207]参照型変数のNothing初期化に対応する修正

File:

• Include/com/vbobject.ab (modified) (2 diffs)

Include/com/vbobject.ab

@@ -157 +157 @@
         Dim hr = pdisp->Invoke(dispid, GUID_NULL, LOCALE_USER_DEFAULT, DISPATCH_PROPERTYGET, dispParams, ret, 0, 0)
         Dispose()
-        Dim v = New Variant
+        Prop = New Variant
         v.Attach(ret)
         Return v
@@ -288 +288 @@
     Dim ret As VARIANT
     hr = obj->Invoke(dispid, GUID_NULL, LOCALE_USER_DEFAULT, DISPATCH_METHOD, dispParams, ret, ByVal 0, 0)
+    CallByName = New Variant
     CallByName.Attach(ret)
     Return CallByName