Sortieren eines ListViews + synchronisieren eines Arrays

[hsg]

Hallo,

ich habe seit einem Jahr nicht mehr groß programmiert und stehe nun vor einem Problem, das vmtl. simpel zu lösen ist:
Ich habe ein Array von Records, die in einem (normalen) Listview dargestellt wird. Nun möchte ich das Listview sortieren. Das klappt auch wunderbar, doch ich muss ja nun auch das Array entsprechend sortieren.

Mein erster Ansatz war folgender:

Delphi-Quellcode:

procedure TDBDescFRM.SortCol(Sender: TObject; Item1, Item2: TListItem; Data: Integer; var Compare: Integer);
var
  oFT : TFeld;
begin
  // Mach was....
  case oSCol.Index of
    0:  Compare                 := CompareText(Item1.Caption,Item2.Caption);
    1:  Compare                 := CompareText(Item1.SubItems[0],Item2.SubItems[0]);
    2:  Compare                 := StrToIntDef(Item1.SubItems[1],0) - StrToIntDef(Item2.SubItems[1],0);
    3:  Compare                 := StrToIntDef(Item1.SubItems[2],0) - StrToIntDef(Item2.SubItems[2],0);
    4:  Compare                 := CompareText(Item1.SubItems[3],Item2.SubItems[3]);
  end;
  if lSDirUp then begin
    Compare                     := -1 * Compare;
  end;  // if lSDirUp
  // Quell-Array synchronisieren:
  if Compare >=0 then begin
    oFT                         := oPanel.Felder[Item1.Index];
    oPanel.Felder[Item1.Index]  := oPanel.Felder[Item2.Index];
    oPanel.Felder[Item2.Index]  := oFT;
  end;  // if CompareText(Item1.Caption,Item2.2) > 0
end;

Das Listview ist sauber sortiert, aber das Array wird dabei ordentlich durcheinander gewürfelt.

Wie mache ich es effizient richtig?

Danke für jgl. Hinweise.
Gruß
Jörg

[edit:]
oPanel.Felder ist das Array, dessen Werte in dem Listview dargestellt wird, so dass das aktuelle Listview-Item auf das gleiche Element im Felder-Array zeigen soll.
[/edit]

[himitsu]

Muß das Array unbedingt sortiert sein?

Speicher einfach nur in ListItem.Data den Index vom zugehörigem Array-Eintrag.

Wenn nun von der Listview auf das Array zugegriffen wird, dann nutzt du den gespeicherten Index und nicht den Index des Items.
Selbst wenn nun Array und ListView unterschiedlich sortiert sind, bereitet dieses keine Probleme mehr.

PS: Es hat so auch noch andere Vorteile:
- die Daten sind mehr von der GUI getrennt
- man könnte die ListView-Einträge filtern (es müssen nicht alle Array-Einträge angezeigt werden)
- ...

[hsg]

Im Prinzip würde ich dir Recht geben, aber das sortierte Array soll anschließend gespeichert werden. Beim Zeitpunkt der Speicherung existiert das ListView nicht mehr, so dass ich darauf nicht zurückgreifen kann. Also müsste ich vor dem Zerstören des Listviews die Sortierung in das Array übertragen bzw. das Array entsprechend sortieren, was ich mir gerne ersparen möchte.

[himitsu]

Ich weiß nicht wie Delphi sortiert, aber es kann sein, daß nicht das, was dort verglichen wurde auch vertauscht wurde.
Es gibt da ja verschiedene optimierte Sortieralgos.

Notfalls vor dem Sortieren die ListView-Einträge durchnummerieren (in .Data), und nach dem Sortieren anhand der Werte in .Data das Array sortieren.

Oder du sortierst selber und nicht über diese Sort-Funktion.
(man kann ja die Klicks auf den Header selber behandeln)

Oder du machst es so, wie oben schonma beschrieben und nutzt erst beim Speichern die Reihenfolge der ListView.

[hsg]

Zitat:

Zitat von himitsu

Ich weiß nicht wie Delphi sortiert, aber es kann sein, daß nicht das, was dort verglichen wurde auch vertauscht wurde.
Es gibt da ja verschiedene optimierte Sortieralgos.

Delphi sortiert hier eigentlich gar nicht, sondern überlässt das anscheinend Windows (Message LVM_SORTITEMS wird gesendet)

Zitat:

Zitat von himitsu

Notfalls vor dem Sortieren die ListView-Einträge durchnummerieren (in .Data), und nach dem Sortieren anhand der Werte in .Data das Array sortieren.

Oder du sortierst selber und nicht über diese Sort-Funktion.
(man kann ja die Klicks auf den Header selber behandeln)

Oder du machst es so, wie oben schonma beschrieben und nutzt erst beim Speichern die Reihenfolge der ListView.

Als Notbehelf baue ich das Array aus den Informationen des Listviews neu auf, aber ich empfinde diesen Workaround als unschön. Windows kann doch eigentlich nichts anderes machen, als aus den Informationen der Compare-Funktion zu schließen, wie die Einträge vertauscht werden müssen. Deswegen muss es doch möglich sein, bei der Gelegenheit auch die Einträge des Arrays zu vertauschen, oder sehe ich da etwas falsch?

[s.h.a.r.k]

Warum benötigst du die Daten in sortierter Reihenfolge? Ich würde das auch so machen, wie himitsu vorgeschlagen hat. Erst bei jeder Visualisierung sollten die Daten in passender Reihenfolge geordnet werden.

[hsg]

Die Visualisierung der Daten ist unabhängig von dem Listview, in dem die Daten sortiert werden. Ich könnte zwar die zuletzt eingestellte Sortierung (und -Richtung) zwar ebenfalls speichern, wollte mir das aber ersparen.

Ich bin einfach nur davon ausgegangen, dass bei der Sortierung ja bereits die Informationen über die notwendigen Tausch-Operationen anfallen und wollte die ausnutzen (und damit performanter programmieren). Warum das nicht geht, ist mir immer noch nicht klar.

Gruß Jörg