warscheinlich die 1000ste Version Von Kniffel

[p80286]

Zitat von DeddyH:

Kleiner Tipp (ja, auch ich habe schon ein Kniffel geschrieben): wenn man sich ein Array[1..6] of byte deklariert, kann man darin schön festhalten, welche Zahl wie oft gewürfelt wurde. Das erleichtert auch die Auswertung, bei einem FullHouse z.B. muss ja eine Zahl 3 mal und eine 2 mal vorkommen.

Das hast Du nicht gelesen?

Delphi-Quellcode:

for i:=1 to 6 do 
  array[i]:=0;
for i:=1 to anzLabel do
  inc(Array[inttostr(label.text)],1);

und danach kommt die Auswertung.
(da oben das ist Pseudocode!)

Gruß
K-H