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