Hallo
Hab ein Schulprojekt 'Kniffel' bzw 'Yahtzee'
Hab dat Projekt jetzt soweit fertig nur fehlt mir noch 3/4 Pasch und Das Full House, jedoch habe ich keine Ahnung wie ich die Programieren soll ! Er ist ziemlich dringend denn muss nächste Woche abgeben
Wäre echt nett wenn ihr mit Helfen könnten
hab den 3-Pasch mal programmiert jedoch geht er nur wenn der 1. Wurfel zum Pasch gehört zb 32331 wenn die Würfel auf 23133 fallen funktioniert der Knopf nicht ! Schicke mal den den Quelltext
Delphi-Quellcode:
procedure Tzt.btndreierpaschClick(Sender: TObject);
var i,j,comp:integer;
str:string;
begin
btndreierpasch.enabled := false;
btnbegin.enabled := true;
comp:=1;
str:=lbl1.caption+lbl2.caption+lbl3.caption+lbl4.caption+lbl5.caption;
for i:=0 to 4 do
begin
if comp < 3 then
begin
comp:=1;
for j:=i+1 to 4 do
begin
if (str[i])=(str[j]) then
comp:=comp+1;
end;
end;
end;
if comp >= 3 then
lbldreierpasch.caption:=(inttostr (strtoint(lbl1.caption)+ strtoint(lbl2.caption)+ strtoint(lbl3.caption)+ strtoint(lbl4.caption)+ strtoint(lbl5.caption)));
lblN.caption := '0';
Danke im vorraus
mfg Keikedeike