Test, ob 5 Integer verschiedene Werte haben

[hoika]

Hallo,

ich stehe mal wieder auf dem Schlauch.

Delphi-Quellcode:

var 
  i1,i2,i3,i4,i5: Integer;
begin 
  i1:= 1;
  i2:= 2;
  i3:= 3;
  i4:= 4;
  i5:= 6;
  Check(i1,i2,i3,i4,i5)=True;

  i5:= 4;
  Check(i1,i2,i3,i4,i5)=False;

Jeder der i-Werte muss also verschieden von den anderen sein
Wie muss die Check-Funktion aussehen ?

Performance spielt keine Rolle.
Bisheriger Ansatz (alles mit and verknüpft).

i1<>i2
i1<>i3
i1<>i4
i1<>i5
i2<>i3
i2<>i4
i2<>i5
i3<>i4
i3<>i5
i4<>i5

Geht das auch anders ?


Danke


Heiko