Hallo crisbinfranke,
in deinem Code ist noch ein kleiner Fehler:
Delphi-Quellcode:
if (lotto[1]=lotto[2]) or (lotto[1]=lotto[3]) or (lotto[1]=lotto[4])
or (lotto[1]=lotto[5]) or (lotto[1]=lotto[6]) or (lotto[2]=lotto[3])
or (lotto[2]=lotto[4]) or (lotto[1]=lotto[5]) or (lotto[2]=lotto[6]) // es muss in der Mitte heißen: lotto[2]=lotto[5]
or (lotto[3]=lotto[4]) or (lotto[3]=lotto[5]) or (lotto[3]=lotto[6])
or (lotto[4]=lotto[5]) or (lotto[4]=lotto[6]) or (lotto[5]=lotto[6])
then ziehung
Wie klappt es inzwischen mit der Sortierung?