Probleme bei Kniffel...

[DeddyH]

Interessant, wer hier schon alles Kniffel geproggt hat (mich eingeschlossen *gg*, hab mir für den Zettel sogar ne Kompo geschrieben). Bei mir sieht das so aus (ein Array für die Würfel 1 bis 5 und eins für die möglichen Augen 1 bis 6):

Delphi-Quellcode:

procedure TKnuffelzettel.werte2augen;
var i,j: integer;
begin
  FillChar(FAugen,SizeOf(FAugen),0);
  for i := 0 to 4 do
    begin
      j := Wuerfel[i];
      inc(FAugen[j - 1]);
    end;
end;

function TKnuffelzettel.GrStrasse: integer;
begin
  werte2augen;
  Result := 0;
  if ((FAugen[0] > 0) and (FAugen[1] > 0) and (FAugen[2] > 0) and (FAugen[3] > 0) and (FAugen[4] > 0)) or
     ((FAugen[1] > 0) and (FAugen[2] > 0) and (FAugen[3] > 0) and (FAugen[4] > 0) and (FAugen[5] > 0)) then
    Result := 40;
end;