Liste sortieren mit Vorgänger

[Gruber_Hans_12345]

Wie sortiere ich am besten (schnellsten und einfachsten)

folgende Daten

ID Vorgänger
1 4
2 1
3 0
4 3

sollte sortiert werden nach

ID Vorgänger
3 0
4 3
1 4
2 1

?

Gruss
Hans

[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;