Zitat von
Wolfgang Mix:
Wobei mir himitsus Lösung besser gefällt, weil sie
plattformunabhängig ist, aber das ist wohl Geschmacksache.
Nja, 'ne platformunabhängigkeit seh ich so oder so eh nicht.
PS: noch eine weitere Variable erzeugt gleich nochmal 1,5 weitere solcher Vergleichszeilen.
Wärend die Schleifen gleichlang bleiben.
Außerdem kann man sich bei den vielen Vergleichen schonmal verschreiben.
(nicht jeder läßt sich derartige Codes automatisch generieren
)
Delphi-Quellcode:
for i := 0 to High(arr) - 1 do
for j := i + 1 to High(arr) do
if arr[i] = arr[j] then
>>doppelt<<
Delphi-Quellcode:
doppelt := False;
for i := 0 to High(arr) - 1 do
for j := i + 1 to High(arr) do
if arr[i] = arr[j] then begin
doppelt := True;
Break;
end;
if doppelt then ...
Einzig und alleine die Geschwindigkeit könnte (unter gewissen Umständen) bei den direkten Vergleichen ein paar millionstel Sekunden schneller sein.