HILFE! Fehler im "Bild"-Zufallsgenerator

[patti]

Und ich bin mir ziemlich sicher, dass sich sich das Befüllen des Arrays deutlich vereinfachen lässt. Mach es so wie DeddyH es vorgeschlagen hat und besorge dir erstmal den richtigen Pfad:

Delphi-Quellcode:

var pfad : string;
begin
   //--
   pfad := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName)) + 'data\Black Jack Karten\';

Anschließend kannst du mit einer doppelten Schleife dein Array mit Inhalten befüllen:

Delphi-Quellcode:

for i1 := 1 to 4 do
begin
    for i2 := 1 to 13 do
    begin
         BildArray[(i1-1)*13+i2] := pfad + i1 + '_' + i2 + '.bmp';
    end;
end;

So kannst du dein Array viel effektiver befüllen. Du musst beachten, dass deine Bild-Dateien dementsprechend benannt sein müssen, also aus "1_1_K.bmp" machst du beispielsweise "1_1.bmp", ich denke die zusätzliche Angabe für den Wert der Karte kannst du dir im Dateinamen sparen.

Patti

Edit:
Kleinen Fehler im Quelltext angepasst.
@alleinherrscher: Okay, das mit den zwei Blöcken stimmt vielleicht. Es mag funktionieren, aber gerade einem Anfänger würde ich raten, sauber zu programmieren, bevor sich "Fehler" oder "Unsauberkeiten" in den Stil einschleichen.