Zweidimensionale Objektliste sortieren

[Codehunter]

Hallo!

Ich habe eine zweidimensionale Objektliste, die (stark vereinfacht) so aussieht:

Delphi-Quellcode:

type
  TZelle = class(TObject)
  public
    ZuSortierendeProperty: string;
  end;
  TSpalte = TObjectList<TZelle>;
  TTabelle = class(TObjectList<TSpalte>)
  public
    procedure Sort(const ASpalte: Word);
  end;

Nun möchte ich eine Spalte sortieren. Die Spalte soll aber dadurch nicht ihre "zeilenweise Bindung" an die anderen Spalten verlieren. Sonst gibts lustiges Datenchaos. Darum kann ich auch nicht einfach TSpalte.Sort(const AComparer: IComparer<T>) verwenden sondern muss eine Ebene höher im TTabelle ansetzen.

Nur wie müsste ich die Sache angehen? Meine noch recht vage Idee geht dahin, einen eigenen Quicksort zu implementieren. Dieser würde dann den Vergleich zweier TZelle.ZuSortierendeProperty nur in einer Spalte machen, das "Plätze tauschen" aber in allen Spalten gleichzeitig. Oder wie würdet ihr das machen?

Viele Grüße
Cody

[Schokohase]

"Andere" organisieren die Zellen in Reihen/Zeilen und nicht in Spalten und dann wird es wesentlich einfacher.

[Gausi]

Wenn die einzelnen Zellen einer Zeile strukturell nicht weiter zu einem Objekt zusammenfassbar sind, dann würde ich auch so eine "simultane Sortiermethode" nehmen, die auf Basis der Vergleiche in einer Spalte auch die Vertauschungen in den anderen Spalten vornimmt.

Eine andere Idee könnte es sein, im Typ TZelle Zeiger auf die linke und rechte Zelle einzufügen. Wenn man dann alle Elemente in der i-ten Zeile von Spalte j haben möchte, muss man dann ausgehend von Tabelle[j][i] diese doppelt verkettete Liste durchgehen, anstatt auf das i-te Element aller Spalten zuzugreifen. Wenn man eine Spalte dann mit dem üblichen Verfahren sortiert, bleibt diese Verkettung ja erhalten. Natürlich muss man dann noch entsprechend Code hinzufügen, wenn man in der Tabelle zwei Spalten vertauscht, um in dieser Richtung zu sortieren - d.h. dann bräuchte man an dieser Stelle eine eigene Sort-Methode ...

[stahli]

Ich mache es auch wie Schokohase.

Wenn Du weiter bei Spalten bleiben willst, würde ich einen Index aufbauen und den Index sortieren.
Dann kannst Du künftig bei der Ermittlung der Zeilennummer immer über den Index gehen und die Originaltabelle unangetastet lassen oder Du sortierst dann alle Spalten entsprechend der erzeugten Indizes einmal durch und verwirfst die Indizes wieder.

[Codehunter]

Ich habe jetzt mal einen Prototypen gebaut, der scheint sowohl zu funktionieren als auch noch recht flott zu sein.

Die Struktur spaltenweise statt zeilenweise ist nun mal schon so vorhanden. Stört aber auch nicht weiter. Die Idee mit den verketteten Listen finde ich ausgezeichnet! Da kann man sehr elegante Dinge anstellen.