HIer mal das FullHouse button ? Weis nicht warum er nur manchmal geht ?! Hilfe ! Der Yahtzee Knopf geht bei mir perfekt nur Strassen und Full House sind einwenig fehlerhaft !!
Delphi-Quellcode:
procedure Tfyahtzee.btnfullhouseClick(Sender: TObject);
var i,j,k,l,comp,comp1:integer;
str,cand:string;
begin
comp:=1;
str:=lbl1.caption+lbl2.caption+lbl3.caption+lbl4.caption+lbl5.caption;
for i:=0 to 5 do
begin
if comp < 3 then
begin
comp:=1;
for j:=i+1 to 5 do
begin
if (str[i])=(str[j]) then
begin
cand:=str[j];
comp:=comp+1;
end;
end;
end;
end;
comp1:=1;
for k:=0 to 2 do
begin
if (cand<>str[k])and (comp1 < 2) then
begin
comp1:=1;
for l:=k+1 to 5 do
begin
if (str[k])=(str[l]) then
comp1:=comp1+1;
end;
end;
if (comp=3) and (comp1=2) then
begin
lblfullhouse.caption:='25';
btnfullhouse.enabled:=false;
cb1.Checked := false;
cb2.Checked := false;
cb3.Checked := false;
cb4.Checked := false;
cb5.Checked := false;
cb1.enabled:= false;
cb2.enabled:= false;
cb3.enabled:= false;
cb4.enabled:= false;
cb5.enabled:= false;
btnbegin.enabled := true;
lblN.caption := '0';
end
else
begin
lblfullhouse.caption:='0';
btnfullhouse.enabled := false;
cb1.Checked := false;
cb2.Checked := false;
cb3.Checked := false;
cb4.Checked := false;
cb5.Checked := false;
cb1.enabled:= false;
cb2.enabled:= false;
cb3.enabled:= false;
cb4.enabled:= false;
cb5.enabled:= false;
btnbegin.enabled := true;
lblN.caption := '0';
end;
end;
if (lbl1.caption = '-1')then
begin
btnfullhouse.enabled := true;
showmessage('Es wurde schon ein Feld ausgewählt');
end;
lbl1.caption := '-1';
lbl2.caption := '0';
lbl3.caption := '0';
lbl4.caption := '0';
lbl5.caption := '0';
end;
mfg keikedeike