Mehrere Variablen auf Ungleichheit prüfen

[Hawkeye219]

Hallo Green,

falls es Strings sind, stecke sie in eine sortierte TStringList (Duplicates=dupIgnore!) und prüfe, ob die Länge der Stringliste mit der Anzahl deiner Elemente übereinstimmt. Integerwerte kannst du ja zuvor mit IntToStr umwandeln.

Gruß Hawkeye

[Amateurprofi]

Zitat von ferby:

Hallo,


sind die 10 Variabeln in einem Array? Weil dann würd es leicht gehen

Delphi-Quellcode:

// variabelngleich: boolean;
// variabelspeicher: array [1..10] of string;

variabelngleich:=false;

for i:=1 to 10 do 
for i2:=1 to 10 do 
if i2<>i then
if variabelspeicher[i] = variabelspeicher[i2] then variabelngleich:=true;

Hab's nicht getestet....

Besser wäre es wohl so :

Delphi-Quellcode:

// var
//    variabelspeicher: array [1..10] of string; 

FUNCTION CheckNotEqual:boolean;
var i,j:integer;
begin
   result:=false;
   for i:=Low(variabelspeicher) to High(variablenspeicher)-1 do
      for j:=i+1 to High(variablenspeicher) do
        if variabelspeicher[i]=variabelspeicher[j] then exit;
   result:=true;
end;

Die Funktion gibt True zurück, wenn keine gleichen Werte gefunden wurden

Vorteil:
Es werden nicht 10*10=100 Vergleiche durchgeführt, sondern im worst case 45 und im best case nur 1 Vergleich.

[mr-unbekannt]

ich würde sagen eine SEHR unelegante lösung wäre so....

Delphi-Quellcode:

var a,b,c,d,e,f,g,h: Irgendwas;

if (a <> b) AND (a <> c) AND .....
(b <> a) AND ( b <> c)...

then
irgendwas

[Luckie]

Zitat von omata:

Hallo Luckie,
aber das macht er doch. Ok ist nicht toll eingerückt aber eigentlich ok.

Mist, die Nichteinrückung hat mich getäuscht.