source:
trunk/Include/system/interface.ab@
323
| Last change on this file since 323 was 289, checked in by , 18 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.
