würfelprogramm

[Corpsman]

Nachdem man davon ausgehen kann das du sehr heäufog würfelst, und die Würfelbilder ansich klein sind würde ich dir ein Array of TBitmap empfehlen, dann hast du weniger HDD zugriffe.

Delphi-Quellcode:

var Bilder:Array[1..6] of Tbitmap;

Procedure TForm1.create ( .. ) ;
var i:Integer;
begin
  for i := 1 to 6 do begin
    bilder[i] := Tbitmap.create;
    Bilder[i].loadfromfile(Dateimane+inttostr(i));
  end;
  randomize;
end;

procedure TForm1.Button1Click(Sender: TObject);
var Zahl:Integer;
begin
  zahl := Random(6)+1;
  Image1.Picture.assign(Bilder[Zahl]);
 ..
end;