Hallo ich habe Objekte

markieren

Delphi-Quellcode:

TItem = class
  ID : integer;
  PrevID : integer;
end;

und die sind in einer TList drinnen

nun möchte ich die sortieren, also ganz oben kommt das Element das als PrevID 0 hat, dann das Element das als PrevID die ID des erstens hat ....

Ich mache es im moment einfach mit 2 TList, indem ich die Liste durchgehe und das nächste Element suche, dieses dann in die zweite Liste einfüge, und selbes Spielchen wieder von vorne ... bis die Liste leer ist.

Aber da muß es doch was vernünftigeres geben oder?

TList.Sort

TList.Sort wird ihm nicht helfen, da seine items ja nur paarweise verknüpft sind. Wenn man also 2 items hat kann man nicht immer feststellen, welches das "größere" ist.

Was helfen sollte, ist ein Index. Erstelle einen Index über PrevID, so dass du ein Element anhand seiner PrefID sehr schnell finden kannst. Wenn das nicht geht, sortiere die Liste nach PrefID und benutze eine binäre Suche.

die Verkettung habe ich geflissentlich überlesen.

Wieviele Elemente sind es denn?

Mit einer Variante des BubbleSort könnte man das innerhalb der TList sortieren.

so grob auf die Art

markieren

Delphi-Quellcode:

SearchId = 0;
for i := Low to High-1 do
  for j := i to High do
    if Element[j].PrevID = SearchId then
    begin
      SearchID = Element[j].ID;
      Swap(i,j);
      Break;
    end;

Es sind eigentlich nicht so viele elemente ... aber dafür viele

Ne also in einer Liste sind so um die 100 Elemente drinnen aber es handelt sich sicher um bis zu 30000 solcher Listen die auf einen schlag sortiert werden müssen.

Ich glaub das mit dem Bubblesort hört sich mal am besten an bisher ...