forum.boolean.name - Field Extends GameObject

forum.boolean.name (http://forum.boolean.name/index.php)

- 2D-программирование (http://forum.boolean.name/forumdisplay.php?f=109)

- - Field Extends GameObject (http://forum.boolean.name/showthread.php?t=14531)

Field Extends GameObject

Type TGameObject
Field X:Float
Field Y:Float
Field Image:Timage

Method DrawSelf()
' DrawImage Image,X*5,Y*5
End Method
End Type

Type TStartMenuSerdce Extends TGameObject
Field Z:Float
Method DrawSelf()
DrawImage Image,X*5,Y*5
End Method
End Type

Для того, чтобы получить значение Field X, из Метода любого объекта:

For Local a:TGameObject = EachIn GameObjectList
a.X=1
Next

Подскажите как получить значение поля Z ?

Ответ: Field Extends GameObject

Код:

if TStartMenuSerdce(a) then

      TStartMenuSerdce(a).Z = 100

end if