source:
trunk/Include/system/interface.ab@
330
Last change on this file since 330 was 289, checked in by , 17 years ago | |
---|---|
File size: 367 bytes |
Line | |
---|---|
1 | Type InterfaceStructure |
2 | thisPtr As VoidPtr |
3 | vtblPtr As VoidPtr |
4 | End Type |
5 | |
6 | Function 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 ) |
12 | End Function |
Note:
See TracBrowser
for help on using the repository browser.