Jupp, die Schleife ist keine Schlechte Idee, ansonsten mußt du ja so oder so jede Variable mit Jeder vergleichen, was natürlich 9*(9-1) Vergleiche ergibt.
Optimiert, durch Auslassung der äquivalenten Vergleiche ( a<>b = b<>a ), ergibt das ein
bissl weniger:
Delphi-Quellcode:
if (a<>b) and (a<>c) and (a<>d) and (a<>e) and (a<>f) and (a<>g)
and (a<>h) and (a<>i) and (b<>c) and (b<>d) and (b<>e) and (b<>f)
and (b<>g) and (b<>h) and (b<>i) and (c<>d) and (c<>e) and (c<>f)
and (c<>g) and (c<>h) and (c<>i) and (d<>e) and (d<>f) and (d<>g)
and (d<>h) and (d<>i) and (e<>f) and (e<>g) and (e<>h) and (e<>i)
and (f<>g) and (f<>h) and (f<>i) and (g<>h) and (g<>i) and (h<>i) then
PS: Bei der Schleife mußt du natürlich die selben Vergleiche durchführen, aber dieses läßt sich sehr leicht über zwei verschachtelte For-Schleifen in 3 Zeilchen lösen.