Ohne die Case Anweisung schlecht machen zu wollen, möchte ich darauf aufmerksam machen, dass meine Methode noch ein wenig mehr Arbeit spart:
Delphi-Quellcode:
const
Wuerfel : Array[0..6] of String = ('', '1.jpg', '2.jpg', '3.jpg', '4.jpg', '5.jpg', '6.jpg');
begin
Image1 = Wuerfel[wuerfel1];
Image2 = Wuerfel[wuerfel2];
Image3 = Wuerfel[wuerfel3];
Image4 = Wuerfel[wuerfel4];
Image5 = Wuerfel[wuerfel5];
end;
Damit haste dann schon alle Bilder für alle 5 Würfel ...