Kann man diesen Quelltextausschnitt verkürzen?

[MathiasSimmack]

Zitat von Daniel:

wenn Du bereit wärest, die Zahlen in einem Array abzuspeichern, könntest Du den Code durch Verwendung einer Schleife noch weiter komprimieren

´s geht auch ohne Array. Wenn ich mir dies so angucke:

Code:

zahl1:=random(6);
if zahl1=0 then wuerfel1.Picture.LoadFromFile('1.bmp');
if zahl1=1 then wuerfel1.Picture.LoadFromFile('2.bmp');
if zahl1=2 then wuerfel1.Picture.LoadFromFile('3.bmp');
if zahl1=3 then wuerfel1.Picture.LoadFromFile('4.bmp');
if zahl1=4 then wuerfel1.Picture.LoadFromFile('5.bmp');
if zahl1=5 then wuerfel1.Picture.LoadFromFile('6.bmp');

dann komme ich auch ohne Array schon mit zwei Zeilen Code weg. Das kürzt auch ganz schön:

Code:

zahl1:=random(6);
wuerfel1.Picture.LoadFromFile(inttostr(zahl1+1)+'.bmp');

Voilá.