Das deutsche QBasic- und FreeBASIC-Forum

[0oFreako0]

Ich habe mal eine Frage ich habe mir mit OOP eine kleine Klasse geschrieben. Diese beinhaltet folgende typen

Type wavy_sprite
Public:
Declare Sub init(ByVal pic_height As Integer,ByVal pic_weigth As Integer,ByVal draw_screen As Byte Ptr)
Declare Sub de_init()
Declare Sub _draw()
Declare Sub fade_in()

Private:

_draw_screen As Byte ptr
_x As Double
_y As Double

_pic_heigth As Integer
_pic_weigth As Integer

_stripe(800) As Tstripe




so das klappt auch soweit aber wie kann ich den type _stripe verändern das er kleiner ist zb 0 und erst mit meiner initalisierungs sub auf die richtige grösse gebracht wird. mit redim in der init sub geht es nicht da dann in der draw sub der wert wieder 0 ist.

[MOD]

Dieses Codebeispiel sollte die Problematik und mögliche Lösungen aufzeigen: Dynamische Arrays in Types

[0oFreako0]

Thx mod

Wie ist es denn jetzt wenn ich einen type als ein array brauche?

zb.

type pixel

x as ...
y as ...
end type

dim pix as pixel

und dies dann mit mit deiner genannten Methode machen würde?

also nicht nur ein einfaches array mit integer oder string inhalt !

und das ich es auch einfach ansteuern kann wie

pix.x = ....

[MOD]

Im Prinzip musst du das Integer mit deinem Type ersetzen. Schraub etwas am Code und probier es aus, wenn ich dir eine Lösung vorsetze, ist der Lerngehalt eher gering einzuschätzen.