Schulprojekt Kniffel ! 3/4 Pasch und Full house

[keikedeike]

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