HILFE! Fehler im "Bild"-Zufallsgenerator

[DeddyH]

Zusammenfassung der Vorschläge:

Delphi-Quellcode:

//Pfad zu den Bildern als Konstante hinterlegen, spart Schreibarbeit
const Bildpfad = 'data\Black Jack Karten\';

//der Einfachheit halber globale Variablen, normalerweise würde man private Felder deklarieren
var
  bildarray: array[1..52] of string;
  Pfad: string;

procedure TForm1.FormCreate(Sender: TObject);
const 
  KartenJeFarbe: array[1..13] of string = ('K','Q','J','10','9','8','7','6','5','4','3','2','A');
var 
  i,j: integer;
begin
  Randomize;
  Pfad := ExtracFilePath(ParamStr(0)) + Bildpfad;
  for i := 0 to 3 do
    for j := Low(KartenJeFarbe) to High(KartenJeFarbe) do
      bildarray[i * Length(KartenJeFarbe) + j] := Format('%d_%d_%s.bmp',[i + 1,j,KartenJeFarbe[j]]);
end;

procedure TForm1.Spiel_startenClick(Sender: TObject);
var    
  zufall1{,zufall2 wird nie benutzt}: Integer;
begin
  Spiel_starten.visible:=False;
  hit.visible:=True;
  stay.visible:=True;
  zufall1 := Random (52)+1;
//  zufall2 := zufall1+Random(5);
  Image1.Picture.LoadFromFile(Pfad + bildarray[zufall1]);
  Image5.Picture.LoadFromFile(Pfad + 'Karte_verdeckt.bmp');
end;

[edit] Befüllen des Array in 2 Schleifen gelegt [/edit]