klar geht das.
aber ich tus mir jetzt nicht an, den ganzen Code abzuschreiben.
wir sind hier ja kein hausaufgaben.de.
Nur ein paar Gedankenanstöße:
du speicherst alle Objekte in einem solchen Array.
Delphi-Quellcode:
const
objs:array[1..4,1..3] of object=((HsNdRShape,HsNdGrShape,HsNdGSShape),(nsNdRShape,nsNdGrShape,nsNdGSShape),(HsNdRShape,HsNdGrShape,HsNdGSShape),(HsNdRShape,HsNdGrShape,HsNdGSShape)...
Dann kannst du in einer Schleife die Widerholungen durchgehen.
Michael Enßlin
Ich, der ich weiß, mir einzubilden, dass ich weiß, nichts zu wissen, weiß, dass ich nichts weiß.
Sokrates