Kann man diesen Quelltextausschnitt verkürzen?

**Helmut**

Hi,

die einzige Möglichkeit die mir dazu einfällt ist findcomponent - das hat aber irgendwie nicht funktioniert

Vielleicht fällt ja einem von euch was dazu ein, ich will den quelltext einfach kürzer machen:

Code:

			procedure TForm1.Button1Click(Sender: TObject);

begin

randomize;

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');

zahl2:=random(6);

if zahl2=0 then wuerfel2.Picture.LoadFromFile('1.bmp');

if zahl2=1 then wuerfel2.Picture.LoadFromFile('2.bmp');

if zahl2=2 then wuerfel2.Picture.LoadFromFile('3.bmp');

if zahl2=3 then wuerfel2.Picture.LoadFromFile('4.bmp');

if zahl2=4 then wuerfel2.Picture.LoadFromFile('5.bmp');

if zahl2=5 then wuerfel2.Picture.LoadFromFile('6.bmp');

zahl3:=random(6);

if zahl3=0 then wuerfel3.Picture.LoadFromFile('1.bmp');

if zahl3=1 then wuerfel3.Picture.LoadFromFile('2.bmp');

if zahl3=2 then wuerfel3.Picture.LoadFromFile('3.bmp');

if zahl3=3 then wuerfel3.Picture.LoadFromFile('4.bmp');

if zahl3=4 then wuerfel3.Picture.LoadFromFile('5.bmp');

if zahl3=5 then wuerfel3.Picture.LoadFromFile('6.bmp');

zahl4:=random(6);

if zahl4=0 then wuerfel4.Picture.LoadFromFile('1.bmp');

if zahl4=1 then wuerfel4.Picture.LoadFromFile('2.bmp');

if zahl4=2 then wuerfel4.Picture.LoadFromFile('3.bmp');

if zahl4=3 then wuerfel4.Picture.LoadFromFile('4.bmp');

if zahl4=4 then wuerfel4.Picture.LoadFromFile('5.bmp');

if zahl4=5 then wuerfel4.Picture.LoadFromFile('6.bmp');

zahl5:=random(6);

if zahl5=0 then wuerfel5.Picture.LoadFromFile('1.bmp');

if zahl5=1 then wuerfel5.Picture.LoadFromFile('2.bmp');

if zahl5=2 then wuerfel5.Picture.LoadFromFile('3.bmp');

if zahl5=3 then wuerfel5.Picture.LoadFromFile('4.bmp');

if zahl5=4 then wuerfel5.Picture.LoadFromFile('5.bmp');

if zahl5=5 then wuerfel5.Picture.LoadFromFile('6.bmp');

zahl6:=random(6);

if zahl6=0 then wuerfel6.Picture.LoadFromFile('1.bmp');

if zahl6=1 then wuerfel6.Picture.LoadFromFile('2.bmp');

if zahl6=2 then wuerfel6.Picture.LoadFromFile('3.bmp');

if zahl6=3 then wuerfel6.Picture.LoadFromFile('4.bmp');

if zahl6=4 then wuerfel6.Picture.LoadFromFile('5.bmp');

if zahl6=5 then wuerfel6.Picture.LoadFromFile('6.bmp');

end;

Ums eifacher zu machen könnte ich die bilder auch in 0.bmp bis 5.bmp umbenennen...
Ich wäre froh wenn mir da jemand bei helfen könnte

mfg
Helmut

Kann man diesen Quelltextausschnitt verkürzen?

Kann man diesen Quelltextausschnitt verkürzen?

Forumregeln