XProfan

class KLASSE=feld%
var objekt#=new(KLASSE)
dispose objekt#  das alleine funktioniert nicht
dim objekt#,0  nur damit funktionierts
objekt#=new(KLASSE)/pre>

class KLASSE=feld%
var objekt#=new(KLASSE)
objekt#.feld%=12345
dispose objekt#
print classof(objekt#)  ""
print sizeof(objekt#)  0
print objekt#.feld%  stürzt ab, naja, existiert immerhin nicht mehr
waitin

class KLASSE=feld%
declare objekte#[0]
objekte#[0]=new(KLASSE)
objekte#[0].feld%=12345
dispose objekte#[0]
print classof(objekte#[0])  immer noch "KLASSE"
print sizeof(objekte#[0])  immer noch 2
print objekte#[0].feld%  immer noch 12345
waitinput

class KLASSE=feld%
declare objekte#[9]

whileloop 0,9

    objekte#[&loop]=new(KLASSE)
    objekte#[&loop].feld%=122*&loop

endwhile

dispose objekte#[]

whileloop 0,9

    objekte#[&loop].feld%=objekte#[&loop].feld%+&loop
    print classof(objekte#[&loop]),
    print sizeof(objekte#[&loop]),
    print objekte#[&loop].feld%

endwhile

waitinput

class KLASSE=feld%
declare objekte#[9]
Dim objekte#[] , KLASSE

whileloop 0,9

    objekte#[&loop]=new(KLASSE)
    objekte#[&loop].feld%=122*&loop

endwhile

dispose objekte#[]

whileloop 0,9

    objekte#[&loop].feld%=objekte#[&loop].feld%+&loop
    print classof(objekte#[&loop]),
    print sizeof(objekte#[&loop]),
    print objekte#[&loop].feld%

endwhile

waitinput