source: Include/system/interface.ab@ 298

Last change on this file since 298 was 289, checked in by dai, 17 years ago

タイプミスを修正。

File size: 367 bytes
Line 
1Type InterfaceStructure
2 thisPtr As VoidPtr
3 vtblPtr As VoidPtr
4End Type
5
6Function CastToInterface( obj As Object, typeOfInterface As System.TypeInfo ) As InterfaceStructure
7 Dim interfaceStructure As InterfaceStructure
8
9 ' TODO: 実装
10 'interfaceStructure.thisPtr = ObjPtr( obj )
11 'interfaceStructure.vtblPtr = obj.GetVtbl( typeOfInterface )
12End Function
Note: See TracBrowser for help on using the repository browser.