Ich wollte ein kleines Kartenspiel programmieren,
wobei ich eine Checkliste der Karten erstellt hab.
( aus einigen CheckBoxen)
Mein Problem ist:
Ich würde gerne die generierten Variablen in den Namen der CheckBox einbinden,
um zu verhindern, dass die Karte nochmals generiert wird.
Jedoch stürzt die Anwendung ab, wenn eine Karte erneut gerneriert wird.
Vielen Dank im Voraus
VG Marian
Code: Alles auswählen
var
Form1: TForm1;
vWert, c, vF: Integer;
Farbe: string;
Code: Alles auswählen
repeat
begin
c:=random(8);
vF:=random(4);
if vF=0 then
Farbe:='Karo';
if vF=1 then
Farbe:='Herz';
if vF=2 then
Farbe:='König';
if vF=3 then
Farbe:='Pik';
vWert:=c+7;
end;
until TCheckBox(FindComponent('c'+Farbe+IntToStr(vWert))).checked = false;