Einzelnen Beitrag anzeigen

hoika

Registriert seit: 5. Jul 2006
Ort: Magdeburg
8.270 Beiträge
 
Delphi 10.4 Sydney
 
#1

Test, ob 5 Integer verschiedene Werte haben

  Alt 30. Dez 2008, 15:54
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
Heiko
  Mit Zitat antworten Zitat