Bildarrays mit zusätzlichen Werten versehen

[vsilverlord]

ja, mit dem record hätte ich das jetzt auch gemacht. Im übrigen würde ich statt einem array eine Liste benutzen (tlist). Die ist einfacher zu handhaben, und du hast keine scherereinen mit dem speicher und mit der verwaltung, falls du irgendetwas änderts du löschst:

Delphi-Quellcode:

type
  TBildInfo = record
     pfad : AnsiString;
     wert: integer;
//...
  end;

 Bilderliste = tlist;
//(...)
procedure karteninitialisieren;
var
karte:tbildinfo;
begin
bild.pfad:= 'data\Black Jack Karten\1_1_K.bmp'; 
bild.wert:= 14142;
bilderliste.add(bild);
bild.pfad:= 'data\Black Jack Karten\1_2_Q.bmp'; 
bild.wert:= 1352;
bilderliste.add(bild);
// usw.

Das abrufen funktioniert genauso wie bei einem array:

Delphi-Quellcode:

bilderliste.items[1].pfad
bilderliste.items[1].wert