Array sortieren mit Permutationen..

[DeddyH]

Zitat:

Delphi-Quellcode:

for j :=  0 to ol.Count - 1 do
    begin
      Priolist := ol[j] as TPriolist;
      if arr[i].j_prio = Priolist.prio then
        contains := true;
    end;

Auf diese Weise kannst Du Dir die Schleife eigentlich sparen und gleich den letzten Wert nehmen. Du müsstest also nachdem contains ggf. true wird aus der Schleife springen. Das geht entweder mit break oder indem Du statt der for-Schleife eine while-Schleife mit 2 Bedingungen nimmst.