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.