1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:
71:
72:
73:
74:
75:
76:
77:
78:
79:
80:
81:
82:
83:
84:
85:
86:
87:
88:
89:
90:
91:
92:
93:
94:
95:

unit Game_Unit;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TKarten = Record
   bild : TBitmap;
   wert : integer;
   benutzt : boolean;
  end;
  TForm1 = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Image1: TImage;
    Image2: TImage;
    Image3: TImage;
    Image4: TImage;
    Image5: TImage;
    Image6: TImage;
    Image7: TImage;
    Image8: TImage;
    Image9: TImage;
    Image10: TImage;
    start_btn: TButton;
    karte_btn: TButton;
    stand_btn: TButton;
    Label3: TLabel;
    Label4: TLabel;
    procedure FormCreate(Sender: TObject);
    procedure start_btnClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  Karte: array [1..52] of TKarten;
  WertComp, WertSpieler: integer;

implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
WertComp:= 0;
end;

procedure TForm1.start_btnClick(Sender: TObject);
var ran:integer;
    i,j,count : integer;
    farbstr,cardstr: string;
    bmp: TBitmap;
begin
count:=1;
 for i:= 2 to 14 do
 begin
 cardstr:= inttostr(i);
  for j:= 1 to 4 do
  begin
   case j of
    1: farbstr:='c';
    2: farbstr:='d';
    3: farbstr:='h';
    4: farbstr:='s';
   end;
  bmp:= TBitmap.Create;
  bmp.LoadFromFile('C:\Users\Günther\Desktop\Projekt\Cards\'+cardstr+farbstr+'.bmp');
  Karte[count].benutzt:= false;
  Karte[count].bild:= bmp;
  bmp.free;
   if i < 10 then Karte[count].wert:=i;
   if i > 10 then Karte[count].wert:=10;
   if i = 14 then Karte[count].wert:=11;
  inc(count);
  end;
  label3.caption:= inttostr(count)
 end;
ran:= random(52)+1;
 if Karte[ran].benutzt then start_btnClick(Sender)
    else WertComp:= WertComp + Karte[ran].wert;
 image1.Picture.Bitmap:= Karte[ran].bild;
 Karte[ran].benutzt := true;
// image2.Picture.Bitmap:= Karte[6].bild;
label3.caption:= inttostr(ran);
end;

end.					

1:

bmp.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Cards\' + cardstr + farbstr + '.bmp');					

1:
2:
3:

  Karte[count].bild := TBitmap.Create;
  Karte[count].bild.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'Cards\' + cardstr + farbstr + '.bmp');
  Karte[count].benutzt := false;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure Karteermitteln(wer:integer);
begin
ran:= random(52)+1;
 if Karte[ran].benutzt then Karteermitteln(wer)
    else
    begin
     case wer of
      0: WertComp:= WertComp + Karte[ran].wert;
      1: WertSpieler:= WertSpieler + Karte[ran].wert;
      end;
    Karte[ran].benutzt := true;
    end;
end;					

1:
2:

procedure TForm1.start_btnClick(Sender: TObject);
procedure Karteermitteln(wer:integer);					

1:
2:

procedure TForm1.Karteermitteln(wer:integer);
begin					

1:
2:

var
  Karo, Piek, Herz, Kreuz: TImageList;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

var
  Hand: array of TKarte;

function BerechneSumme: Byte;
var
  I: Integer;
  Wert: Byte;
begin
  Result := 0;
  for I := 0 to Length(Hand) - 1 do
  begin
    Wert := Hand.Wert;
    // Wenn es ein Ass ist, dann 11 oder 1 als Wertigkeit
    if (Wert  = 11) and (Result + Wert  > 21) then Wert := 1;    

    Result := Result + Wert;
  end;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:

var
  Hand: array of TKarte;

function BerechneSumme: Byte;
var
  I: Integer;
  Wert: Byte;
  AnzahlAsse: Byte;
begin
  Result := 0;
  AnzahlAsse := 0;

  // Zuerst prüfen, wieviele Asse insgesamt vorkommen
  for I := 0 to Length(Hand) - 1 do
  begin
    if (Hand[I].Wert) = 11 then Inc(AnzahlAsse);
    Inc(Wert, Hand[I].Wert);
  end;

  {
    Sonderfall 2 Asse:
    Wenn die Hand aus 2 Assen besteht, zählt dies
    auch als Black Jack
  }
  if (Length(Hand) = 2) and (AnzahlAsse = 2) then
  begin
    Result := 21;
    Exit;
  end;

  {
    Wenn mehr als 21 Punkte auf der Hand sind, 
    aber Asse vorhanden, dann können diese als
    1 statt 11 Punkte zählen, also so lange
    pro Ass 10 Abziehen bis ein Wert unter 21
    erreicht ist oder keine Asse mehr vorhanden.
  }
  while (Wert > 21) and (AnzahlAsse > 0) do
  begin
    Dec(Wert, 10);
    Dec(AnzahlAsse, 1);
  end;

  Result := Wert;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:
64:
65:
66:
67:
68:
69:
70:

type TFarbe = (Kreuz, Pik, Herz, Karo);
type TKarte = record
  Wert: 1..11;
  Farbe: TFarbe;
  Bild: TImage;
end;
type THand = array of TKarte;

var
  SpielerHand,
  GeberHand: THand;
  SpielerWert, 
  GeberWert: Byte;

function BerechneSumme(Hand: THand, Sonderbehandlung2Asse: Boolean = False): Byte;
var
  I: Integer;
  Wert: Byte;
  AnzahlAsse: Byte;
begin
  Result := 0;
  AnzahlAsse := 0;

  // Zuerst prüfen, wieviele Asse insgesamt vorkommen
  for I := 0 to Length(Hand) - 1 do
  begin
    if (Hand[I].Wert) = 11 then Inc(AnzahlAsse);
    Inc(Wert, Hand[I].Wert);
  end;

  {
    Sonderfall 2 Asse:
    Wenn die Hand aus 2 Assen besteht, zählt dies
    auch als Black Jack
  }
  if Sonderbehandlung2Asse and (Length(Hand) = 2) and (AnzahlAsse = 2) then
  begin
    Result := 21;
    Exit;
  end;

  {
    Wenn mehr als 21 Punkte auf der Hand sind, 
    aber Asse vorhanden, dann können diese als
    1 statt 11 Punkte zählen, also so lange
    pro Ass 10 Abziehen bis ein Wert unter 21
    erreicht ist oder keine Asse mehr vorhanden.
  }
  while (Wert > 21) and (AnzahlAsse > 0) do
  begin
    Dec(Wert, 10);
    Dec(AnzahlAsse, 1);
  end;

  Result := Wert;
end;

function KarteGeben(Hand: THand, Karte: TKarte): Byte;
begin
  SetLength(Hand, Length(Hand)+1);
  Hand[Length(Hand)-1] := Karte;
  Result := BerechneSumme(Hand);
end;

begin
  [...]
  SpielerWert := KarteGeben(SpielerHand, {zufällige Karte});  
  // Spieler Wert in GUI anzeigen
  [...]
end;