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=champ%
declare objekte#[0]
objekte#[0]=new(KLASSE)
objekte#[0].champ%=12345
dispose objekte#[0]
imprimer classof(objekte#[0])  toujours encore "KLASSE"
imprimer sizeof(objekte#[0])  toujours encore 2
imprimer objekte#[0].champ%  toujours encore 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