Code: Alles auswählen
#maxlange = 500
Structure blo
 bl.b[#maxlange]
 bllange.l
 verwendet.l
EndStructure
Structure ablo
 ablo.blo[#maxlange]
 ablolange.l
EndStructure
Procedure sort()
Delay(10)
EndProcedure
sblalt.ablo
sblneu.ablo
sort()
Debug SizeOf(ablo)
Code: Alles auswählen
#maxlange = 500
Structure blo
 bl.b[#maxlange]
 bllange.l
 verwendet.l
EndStructure
Structure ablo
 ablo.blo[#maxlange]
 ablolange.l
EndStructure
Procedure sort()
Delay(10)
sblalt.ablo
sblneu.ablo
EndProcedure
sort()
Debug SizeOf(ablo)
