Types und Extends

Übersicht BlitzMax, BlitzMax NG Beginners-Corner

Neue Antwort erstellen

 

Phlox

Betreff: Types und Extends

 BeitragFr, Jan 08, 2010 18:56
Antworten mit Zitat
Benutzer-Profile anzeigen
Nehmen wir an, ich hätte 2 Types, z.B.

BlitzMax: [AUSKLAPPEN] 
Type Events
Field time:Int
Field liste:TList=CreateList()


Method MakeButton()
Local btn:ButtonPress=New ButtonPress
btn.time=MilliSecs()
btn.A=2
ListAddLast liste,btn
End Method

Method MakeParticle()
Local part:Particles=New Particles
part.time=MilliSecs()
part.B=25
ListAddLast liste,part
End Method

End Type

Type ButtonPress Extends Events
Field A:Int
End Type

Type Particles Extends Events
Field B:Int
End Type


Und jetzt erstelle ich jeweils "ButtonPresses" und "Particles" (nur theoretisch) und gehe dann die Liste von "Events" durch, woher weiß ich, was "ButtonPress" und was "Particles" ist?

Also z.B. so, klappt aber nicht
BlitzMax: [AUSKLAPPEN] 
For Local E:Event = EachIn Events.liste
If E = Particles Then

EndIf
Next

BladeRunner

Moderator

BeitragFr, Jan 08, 2010 18:58
Antworten mit Zitat
Benutzer-Profile anzeigen
Code: [AUSKLAPPEN]
if particle(e) then ...

Du castest in den Typ und wenn es geht ist es ungleich null Wink
Zu Diensten, Bürger.
Intel T2300, 2.5GB DDR 533, Mobility Radeon X1600 Win XP Home SP3
Intel T8400, 4GB DDR3, Nvidia GF9700M GTS Win 7/64
B3D BMax MaxGUI
Stolzer Gewinner des BAC#48, #52 & #92
 

Phlox

 BeitragFr, Jan 08, 2010 19:13
Antworten mit Zitat
Benutzer-Profile anzeigen
Vielen Dank, geht! Hab grad erst mit BlitzMax angefangen.. aber es ist ziemlich cool^^

Phlox

Neue Antwort erstellen


Übersicht BlitzMax, BlitzMax NG Beginners-Corner

Nach Oben

Gehe zu:

Powered by phpBB © 2001 - 2006, phpBB Group