function - 指向对象的指针。如何管理函数或过程中对对象的真实引用并返回它？

Question

我需要维护一组对象引用并将每个项目传递给函数来管理它。我知道我可以做这样的事情：

Dim arrObjs As MyObject[]  
Dim refObj As MyObject

arrObjs.Add(New MyObject) 'First reference to the Object.  
refObj=arrObjs[0]         'Second reference to the same Object.  

我认为这是对的，但是阅读 Gambas 对象模型文档时，我读到通过引用 (ByRef) 传递参数时不涉及指针。相反，该值被复制到函数内部，然后在函数完成后再次复制到函数外部。例子：

Sub manageObject(ByRef refObj As MyObject)  
    .....  
End  

通话时间：

manageObject(ByRef arrObjs[0])  

如何管理对过程中对象的真实引用？有没有类似的东西？

Dim obj As New MyObject        'Correct  
Dim objInstance As MyObject    'Correct  
Dim refObj as Pointer          'Correct  

refObj=varPtr(obj)             'NOT Correct, but i would like  
objInstance=Object@(refObj)    'NOT Correct, but i would like  

Answer 1

使用 NEW 创建对象后，您可以使用该对象的方法和读/写属性：

arrObjs[0].method()   
arrObjs[1].property=value

请参阅对象数据类型定义和对象数组的示例：对象
数组可以简单地由公共数组共享。使用h和引用
时，您可以编写以下内容：

hinstance = arrObjs[0]

接着：

hinstance.method()