Bildarrays mit zusätzlichen Werten versehen

[himitsu]

auch wenn hier welche schneller getippt haben (oder ich nur langsam bin) ...
nja, immerhin nochmal alles zusammen

wie du siehst, kann man selbst mit absoluten Pfaden übersichtlicher arbeiten

Delphi-Quellcode:

type
  TBildInfo = record
     Datei: String;
     ...
  end;

  TBildArray = array of TBildInfo;


// dieses im Private-Abschnitt deiner Form definieren
BildVerzeichnis: String;


procedure TForm1.FormCreate(Sender: TObject);
begin
  randomize; 
  BildVerzeichnis := ExtractFilePath(Application.ExeName) + 'data\Black Jack Karten\';
  bildarray[1].Datei :='1_1_K.bmp';
  bildarray[2].Datei :='1_2_Q.bmp';
  bildarray[3].Datei :='1_3_J.bmp';
  bildarray[4].Datei :='1_4_10.bmp';
  bildarray[5].Datei :='1_5_9.bmp';
  bildarray[6].Datei :='1_6_8.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(BildVerzeichnis + bildarray[zufall1]);
  Image5.Picture.LoadFromFile(BildVerzeichnis + 'Karte_verdeckt.bmp');