Wer ist online?
Buchempfehlung
FreeBASIC-Chat
FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!fb:porticula NoPaste
kleiner Test mit IS
| Uploader: |  nemored |
| Datum/Zeit: | 08.01.2012 18:04:26 |
type mutter extends object
as integer mutterrecord
end type
type kind extends mutter
as integer kindrecord
end type
sub test(obj as mutter)
if obj is kind then
print "Ich bin ein Kind" ' das funktioniert
print obj.kindrecord ' das funktioniert NICHT
end if
end sub
dim k as kind
test k