Array sortieren mit Permutationen..

[Ducksoul]

Delphi-Quellcode:

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

So meinst du, oder? Also dass wenn ich merke dass bereits eine Prioliste für eine Priorität besteht die Schleife abgebrochen wird und nicht auch noch die restlichen Listen durchforstet werden.


Edit:

Aber um nochmal auf ein Problem zurückzukommen.

In meiner Testumgebung habe ich 6 Jobs:

Delphi-Quellcode:

Job1: id=0, prio=7
Job2: id=1, prio=7
Job3: id=2, prio=7
Job4: id=3, prio=5
Job5: id=4, prio=3
Job6: id=5, prio=3

Soll-Ergebnis meiner Funktion wäre

Delphi-Quellcode:

ol[0] --> prio7, arr_jobs(Job1, Job2, Job3)
ol[1] --> prio5, arr_jobs(Job4)
ol[2] --> prio3, arr_jobs(Job5, Job6)

Ist-Ergebnis meiner Funktion wäre

Delphi-Quellcode:

ol[0] --> prio7, arr_jobs(leererJob, leererJob, leererJob)
ol[1] --> prio5, arr_jobs(leererJob)
ol[2] --> prio3, arr_jobs(leererJob, leererJob)

Soll heißen: Es werden Jobs in die Liste eingefügt, welche dann aber alle nil sind :-/
Was mach ich hier falsch?