Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
RTTI + Pointer
| Uploader: |  MOD |
| Datum/Zeit: | 06.01.2012 16:23:04 |
'RTTI + Pointer
'Vergleichstyp
Type a
x As Integer
End Type
'Object-Erbender
Type b Extends Object
x As Integer
End Type
'Kind von Object-Erbender
Type c Extends b
x As Integer
End Type
Dim As a Ptr a1
Dim As b Ptr b1
Dim As c Ptr c1
Print "########"
Print a1, b1, c1
Print "########"
Print "a1:", a1
Print "b1:", b1
Print "c1:", c1
Print "########"
Sleep