TListview sortieren

[Susanne]

hallo,

ich habe eine ListView auf meinem Form und diese möchte ich gerne sortieren, wenn ich auf die Spaltenüberschrift klicke.

Ich hab hier schon jede Menge gefunden, hab es ausprobiert und es klappt einfach nicht.

Also ein Klick auf die Spaltenüberschrift: da habe ich das gefunden

Delphi-Quellcode:

procedure TMainForm.ListView1ColumnClick(Sender: TObject;
  Column: TListColumn);
begin
  ColumnToSort := Column.Index;
  if ColumnToSort = LastSorted then
    SortDir := 1 - SortDir
  else
    SortDir := 0;
  LastSorted := ColumnToSort;
  (Sender as TCustomListView).AlphaSort;
end;

Dann hab ich eine Sortierroutine gefunden:

Delphi-Quellcode:

procedure TMainForm.ListView1Compare(Sender: TObject; Item1,Item2: TListItem; Data: Integer; var Compare: Integer);
var
  TempStr, TextToSort1, TextToSort2: String;
begin
  if ColumnToSort = 0 then
    begin
      TextToSort1 := Item1.Caption;
      TextToSort2 := Item2.Caption;
    end 
  else
    begin
      TextToSort1 := Item1.SubItems[ColumnToSort - 1];
      TextToSort2 := Item2.SubItems[ColumnToSort - 1];
    end; //if ColumnToSort <> 0 then

    //Je nach Sortierrichtung evtl. Texte vertauschen 
    if SortDir <> 0 then
    begin 
      TempStr := TextToSort1;
      TextToSort1 := TextToSort2; 
      TextToSort2 := TempStr;
    end; 

  //Texte je nach Tag der Spalte unterschiedlich vergleichen 
     case (Sender as TListView).Columns[ColumnToSort].Tag of 
  //Integer-Werte
     1: Compare := StrToInt(TextToSort1)-StrToInt(TextToSort2); 
  //DateTime-Werte 
     3: begin 
        Compare := 0;
        if StrToDateTime(TextToSort1) > StrToDateTime(TextToSort2) then
          Compare := Trunc(StrToDateTime(TextToSort1)-StrToDateTime(TextToSort2))+1;
        if StrToDateTime(TextToSort1) < StrToDateTime(TextToSort2) then
          Compare := Trunc(StrToDateTime(TextToSort1)-StrToDateTime(TextToSort2))-1;
        end;
  end;
end;

Aber wie packe ich das jetzt zusammen, so dass ListView1Compare ausgeführt wird, wenn ich auf die spaltenüberschrift geklickt habe?

[KrasserChecker]

Ändere
(Sender as TCustomListView).AlphaSort; in
(Sender as TCustomListView).CustomSort(nil, Column.Index); Dann kannst Du dir auch noch die Variable "ColumnToSort" sparen, denn der 2. Parameter wird in der Methode "ListView1Compare" als Parameter "Data" wieder hereingereicht.

[Susanne]

(Sender as TCustomListView).CustomSort(nil, Column.Index); das ist aber dann doch in

Delphi-Quellcode:

procedure TMainForm.ListView1ColumnClick(Sender: TObject; 
  Column: TListColumn);

wie wird dann also die ListView1Compare-Methode ausgerufen, im Moment wird sie das doch nicht, oder steh ich einfach auf der Leitung??? Der geht nicht in die Methode rein.

[alcaeus]

Hallo Susanne,

Zitat von Susanne:

Ich hab hier schon jede Menge gefunden, hab es ausprobiert und es klappt einfach nicht.

ich weiss was falsch ist: du hast uns keine Infos gegeben. Mal im Ernst, ohne Infos was nicht klappt, und welche Fehlermeldung ausgegeben wird koennen wir auch nichts tun.

Nachdem der Code von mir ist, kann ich dir versichern dass er funktioniert, ich habe ihn soeben nochmals probiert.
Hast du ColumnToSort, SortDir und LastSorted auch im Form deklariert?

Greetz
alcaeus

[KrasserChecker]

Zitat:

Der geht nicht in die Methode rein.

Doch, tut er. Dadurch, dass der erste Parameter als "nil" übergeben wird, löst er automatisch das OnCompare-Ereigniss für jeden Vergleich auf.

[Susanne]

ok, jetzt geht es, danke

in die Funktion ist er wirklich nicht reingegangen, hab das ganze weggeschmissen und noch mal neu gemacht mit den beiden Funktionen, jetzt geht es. Ist vielleicht ein bisschen warm heute.

Trotzdem vielen Dank.