Liste sortieren mit Vorgänger

[Stevie]

Delphi-Quellcode:

ID := 0;
for i := 0 to Pred(List.Count) do
begin
  for j := i to Pred(List.Count) do
  begin
    if List[j].Vorgaenger = ID then
    begin
      Tausche(List[i], List[j]);
      Break;
    end;
  end;
  ID := List[i].ID;
end;