SeedRnd MilliSecs()


Type deintype
   Field nummer
End Type


tmpzahl = Rand(5,200)
For i=1 To tmpzahl
 d.deintype = New deintype
 d\nummer=i
Next


i=0
For d.deintype = Each deintype
 i=i+1
Next
Local r=Rand(0,i)
selected.deintype = First deintype

For i=0 To r
 selected.deintype = After selected
Next

Print selected\nummer

WaitKey()
End

;///////////////////////////////////// Type anlegen

Type test
 
  Field txt$

End Type

;///////////////////////////////////// function neues Object erstellen

Function newobject(txt)

 mytest.test=New test
 mytest\Txt=txt

 Return Handle(mytest)

End Function

;///////////////////////////////////// Array mit my Array zum speichern der Objecte + Schleife zum erstellen von 100 Objecten

Dim myarray(100)

For x=1 To 100

myarray(x)=newobject(x)

Next

;///////////////////////////////////// Die Schleife zum anzeigen ,, und als beweis ;)

For x=1 To 500

obj.test=Object test(myarray(Rand(1,100)))

Print obj\Txt

Next