brauche ne kleine Hilfe zu Kniffel :)

[Binärbaum]

Zitat von SubData:

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 ...

Das dürfte so wohl kaum funktionieren, da man einem Image nicht einfach einen String-Typ zuweisen kann. Folgendes ist besser:

Delphi-Quellcode:

const 
  Bilder : Array[1..6] of String = ('1.jpg', '2.jpg', '3.jpg', '4.jpg', '5.jpg', '6.jpg');
var i: Byte;
    Augenzahl: array[1..5] of Byte;//Augenanzahl der Würfel 
begin 
  Randomize;
  for i:= 1 to 5 do
    Augenzahl[i]:= Random(6)+1;//Würfeln
  Image1.Picture.LoadFromFile(Bilder[Augenzahl[1]]);
  Image2.Picture.LoadFromFile(Bilder[Augenzahl[2]]);
  Image3.Picture.LoadFromFile(Bilder[Augenzahl[3]]);
  Image4.Picture.LoadFromFile(Bilder[Augenzahl[4]]);
  Image5.Picture.LoadFromFile(Bilder[Augenzahl[5]]);
end;

MfG
Binärbaum