Опять проблеммки!
SuperStrict
Type Z3d_T_vertex
Field name : String
Field tp : Byte
Field wx : Float , wy : Float , wz : Float
Field tx : Int , ty : Int
Field cr : Byte , cg : Byte , cb : Byte , alp : Byte
End Type
Function Z3d_F_Create_vertex : Z3d_T_vertex ( )
Local ret : Z3d_T_vertex = New Z3d_T_vertex
Return ret
End Function
Type Z3d_T_polygon
Field name : String
Field texture : TPixmap
Field newtxt : Byte
Field tp : Byte
Field list : TList
Method Add_vertex ( vertex : Z3d_T_vertex )
ListAddLast ( list , vertex )
End Method
End Type
Function Z3d_F_Create_polygon : Z3d_T_polygon ( )
Local ret : Z3d_T_polygon = New Z3d_T_polygon
Return ret
End Function
Global vert : Z3d_T_vertex
Global poly : Z3d_T_polygon
vert = Z3d_F_Create_vertex ( )
vert.tp = 0
poly = Z3d_F_Create_polygon( )
poly.tp = 0
poly.Add_vertex ( vert )
Жму F5 и вдруг получаю сообщение...
От: BlitzMax Application
|
Unhandled Exception:Attempt to access field or method of Null object
|
Коротко:
