Buchempfehlung
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
Windows-Programmierung. Das Entwicklerhandbuch zur WIN32-API
"Der" Petzold, das über 1000 Seiten starke Standardwerk zum Win32-API - besonders nützlich u. a. bei der GUI-Programmierung in FreeBASIC! [Mehr Infos...]
FreeBASIC-Chat
Es sind Benutzer im FreeBASIC-Chat online.
(Stand:  )
FreeBASIC bei Twitter
Twitter FreeBASIC-Nachrichten jetzt auch über Twitter erhalten. Follow us!

fb:porticula NoPaste

Info
Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen Download
Dateidownload

mdList mit Base Ptr und Child Objects

Uploader:RedakteurMOD
Datum/Zeit:13.10.2014 20:01:17

Type Tier Extends Object
    Declare Constructor ()
    As Integer beine
End Type

Constructor Tier()

End Constructor

Type Hund Extends Tier
    Declare Constructor (anzahlBeine As Integer)
End Type
Constructor Hund(anzahlBeine As Integer)
    This.beine = anzahlBeine
End Constructor

Type Affe Extends Tier
    Declare Constructor (anzahlBeine As Integer)
End Type
Constructor Affe(anzahlBeine As Integer)
    This.beine = anzahlBeine
End Constructor


#Include Once "md/util/mdList.bi"
mdListDeclare(Tier, Ptr)

Dim As mdList(Tier, Ptr) tiere

tiere.add(New Hund(4))
tiere.add(New Affe(2))

Dim As Tier Ptr currentTier
ForEach(Tier, currentTier In tiere, Ptr)
    If *currentTier Is Hund Then
        Print "Der Hund hat " & currentTier->beine & " Beine."
    ElseIf *currentTier Is Affe Then
        Print "Der Affe hat " & currentTier->beine & " Beine."
    Else
        Print "Das Tier ist nicht bekannt."
    EndIf
NextEach

Sleep