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?