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]