Zitat von
himitsu:
Einzig und alleine die Geschwindigkeit könnte (unter gewissen Umständen) bei den direkten Vergleichen ein paar millionstel Sekunden schneller sein.
Aber nur, wenn Du es vernünftig programmiert hättest! Um Deinen Fehler zu sehen, teste mal Deinen Code mit folgenden Vorgaben:
Delphi-Quellcode:
setlength(arr, 10000000);
for i:=0 to high(arr) do arr[i] := i;
arr[0] := 1;
In der Zwischenzeit hier die Erklärung: Dein angeblich fast optimaler Code verläßt via
break verläßt nämlich nur die innere for-Schleife, und die äußere Schleif wird
immer wieder durchlaufen, auch wenn schon doppelte Einträge erkannt wurden. Wenn kein Goto oder exit aus einer separaten Funktion verwendet werden sollen, könnte ein verbesserter Vorschlag etwa so aussehen:
Delphi-Quellcode:
doppelt := false;
for i:=0 to High(arr)-1 do begin
if not doppelt then begin
for j:=i+1 to High(arr) do begin
if arr[i]=arr[j] then begin
doppelt := true;
break;
end;
end;
end;
end;
if doppelt then ...;