Mein Schulprojekt Yahtzee V 1.0

[keikedeike]

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