Bildarrays mit zusätzlichen Werten versehen

[KING_OF_BONGO]

Hi,
ich schreibe gerade ein Programm über Black Jack und habe dazu Bildarrays verwendet,
um die Spielkarten zufällig anzeigen zu lassen, dass klappt auch alles soweit. Jetzt
muss ich aber den Arrays noch Werte zuordnen, um dem Spieler die aktuelle Augenzahl
seiner Karten anzeigen zu lassen. Vorweg ich bin ein Neuling in Delphi und habe gerade
erst mit Programmieren angefangen. Wie kann ich das umsetzen, dass den Bildarrays zusätzlich
zu ihrem Dateipfad, auch noch Werte zugeordnet werden können?

Quellcode:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin

  randomize;
  bildarray[1] :='data\Black Jack Karten\1_1_K.bmp';
  bildarray[2] :='data\Black Jack Karten\1_2_Q.bmp';
  bildarray[3] :='data\Black Jack Karten\1_3_J.bmp';
  bildarray[4] :='data\Black Jack Karten\1_4_10.bmp';
  bildarray[5] :='data\Black Jack Karten\1_5_9.bmp';
  bildarray[6] :='data\Black Jack Karten\1_6_8.bmp';
  bildarray[7] :='data\Black Jack Karten\1_7_7.bmp';
  bildarray[8] :='data\Black Jack Karten\1_8_6.bmp';
  bildarray[9] :='data\Black Jack Karten\1_9_5.bmp';
  bildarray[10] :='data\Black Jack Karten\1_10_4.bmp';
  bildarray[11] :='data\Black Jack Karten\1_11_3.bmp';
  bildarray[12] :='data\Black Jack Karten\1_12_2.bmp';
  bildarray[13] :='data\Black Jack Karten\1_13_A.bmp';
  bildarray[14] :='data\Black Jack Karten\2_1_K.bmp';
  bildarray[15] :='data\Black Jack Karten\2_2_Q.bmp';
  bildarray[16] :='data\Black Jack Karten\2_3_J.bmp';
  bildarray[17] :='data\Black Jack Karten\2_4_10.bmp';
  bildarray[18] :='data\Black Jack Karten\2_5_9.bmp';
  bildarray[19] :='data\Black Jack Karten\2_6_8.bmp';
  bildarray[20] :='data\Black Jack Karten\2_7_7.bmp';
  bildarray[21] :='data\Black Jack Karten\2_8_6.bmp';
  bildarray[22] :='data\Black Jack Karten\2_9_5.bmp';
  bildarray[23] :='data\Black Jack Karten\2_10_4.bmp';
  bildarray[24] :='data\Black Jack Karten\2_11_3.bmp';
  bildarray[25] :='data\Black Jack Karten\2_12_2.bmp';
  bildarray[26] :='data\Black Jack Karten\2_13_A.bmp';
  bildarray[27] :='data\Black Jack Karten\3_1_K.bmp';
  bildarray[28] :='data\Black Jack Karten\3_2_Q.bmp';
  bildarray[29] :='data\Black Jack Karten\3_3_J.bmp';
  bildarray[30] :='data\Black Jack Karten\3_4_10.bmp';
  bildarray[31] :='data\Black Jack Karten\3_5_9.bmp';
  bildarray[32] :='data\Black Jack Karten\3_6_8.bmp';
  bildarray[33] :='data\Black Jack Karten\3_7_7.bmp';
  bildarray[34] :='data\Black Jack Karten\3_8_6.bmp';
  bildarray[35] :='data\Black Jack Karten\3_9_5.bmp';
  bildarray[36] :='data\Black Jack Karten\3_10_4.bmp';
  bildarray[37] :='data\Black Jack Karten\3_11_3.bmp';
  bildarray[38] :='data\Black Jack Karten\3_12_2.bmp';
  bildarray[39] :='data\Black Jack Karten\3_13_A.bmp';
  bildarray[40] :='data\Black Jack Karten\4_1_K.bmp';
  bildarray[41] :='data\Black Jack Karten\4_2_Q.bmp';
  bildarray[42] :='data\Black Jack Karten\4_3_J.bmp';
  bildarray[43] :='data\Black Jack Karten\4_4_10.bmp';
  bildarray[44] :='data\Black Jack Karten\4_5_9.bmp';
  bildarray[45] :='data\Black Jack Karten\4_6_8.bmp';
  bildarray[46] :='data\Black Jack Karten\4_7_7.bmp';
  bildarray[47] :='data\Black Jack Karten\4_8_6.bmp';
  bildarray[48] :='data\Black Jack Karten\4_9_5.bmp';
  bildarray[49] :='data\Black Jack Karten\4_10_4.bmp';
  bildarray[50] :='data\Black Jack Karten\4_11_3.bmp';
  bildarray[51] :='data\Black Jack Karten\4_12_2.bmp';
  bildarray[52] :='data\Black Jack Karten\4_13_A.bmp';
end;

procedure TForm1.Spiel_startenClick(Sender: TObject);

begin
  Spiel_starten.visible:=False;
  Karte2.visible:=True;
  stay.visible:=True;
  zufall1:=Random (52)+1;
  Image1.Picture.LoadFromFile(bildarray[zufall1]);
  Image5.Picture.LoadFromFile('data\Black Jack Karten\Karte_verdeckt.bmp');
end;

procedure TForm1.Karte2Click(Sender: TObject);
begin

  Karte2.visible:=False;
  Karte3.visible:=True;

  Repeat
  zufall2:=Random(52)+1;
  Until zufall3<zufall1;

  Image2.Picture.LoadFromFile(bildarray[zufall2]);
end;

procedure TForm1.Karte3Click(Sender: TObject);
begin

   Karte3.visible:=False;
   Karte4.visible:=True;

   Repeat
   zufall3:=Random(52)+1;
   Until zufall3>zufall1;

   Image3.Picture.LoadFromFile(bildarray[zufall3]);

end;

procedure TForm1.Karte4Click(Sender: TObject);
begin

   Karte3.visible:=False;
   Karte4.visible:=False;

   Repeat
   zufall4:=Random(52)+1
   Until zufall4>zufall3;
   Image4.Picture.LoadFromFile(bildarray[zufall4]);

end;

PS: Wenn sich jemand wundert, warum ich immer noch direkte Pfade benutze, obwohl
es mir von vielen ans Herz gelegt wurde absolute Pfade zu benutzen, dann kann
ich nur sagen, dass ich wie bereits gesagt ein Anfänger in Delphi bin und auch
verstehen möchte was ich da zu "Papier" bringe, um mich in diesem Bereich weiterzubilden.
Daher bitte ich um euer Verständnis.

KING_OF_BONGO