Listview Caption nach zahlen sortieren

[Wadim]

hi,

hab da ein problem...und zwar hab ich in einem listview 10 zahlen stehen und diese will ich jetzt von der größten (oben) bis zur kleinsten (unten) zahl sortieren...so da dachte ich mir...benutzt du dann die schönse sorttype funktion...nur leider funktioniert sie nicht...da gibst einmal die stText sort funktion...dort werden die zahlen leider genau andersrum sortiert...und beim stDate funktion passiert irgendwie nichts...kann mir einer weiterhelfen wie ich das hinbekommen könnte??

danke schonmal

[marabu]

Hallo Wadim,

setze SortType auf stData und weise dem Ereignis OnCompare() den folgenden Code zu:

Delphi-Quellcode:

procedure TDemoForm.ListViewCompare(Sender: TObject; Item1,
  Item2: TListItem; Data: Integer; var Compare: Integer);
var
  n1, n2: Integer;
begin
  n1 := StrToInt(Item1.Caption);
  n2 := StrToInt(Item2.Caption);
  if n1 < n2 then Compare := 1
  else if n1 > n2 then Compare := -1
  else Compare := 0;
end;

Die Online Hilfe von Delphi hat weitere Informationen für dich.

Grüße vom marabu

[Wadim]

Zitat:

Zitat von marabu

Hallo Wadim,

setze SortType auf stData und weise dem Ereignis OnCompare() den folgenden Code zu:

Delphi-Quellcode:

procedure TDemoForm.ListViewCompare(Sender: TObject; Item1,
  Item2: TListItem; Data: Integer; var Compare: Integer);
var
  n1, n2: Integer;
begin
  n1 := StrToInt(Item1.Caption);
  n2 := StrToInt(Item2.Caption);
  if n1 < n2 then Compare := 1
  else if n1 > n2 then Compare := -1
  else Compare := 0;
end;

Die Online Hilfe von Delphi hat weitere Informationen für dich.

Grüße vom marabu

hmm hab das nun eingefügt...leider passiert nichts??

kannst mir evtl. den link zur online hilfe geben??

[marabu]

Wo rufst du den Sort auf? Nach dem Einfügen, nach dem Löschen, nach dem Ändern eines Eintrages? Oder als Reaktion auf einen ButtonClick:

Delphi-Quellcode:

procedure TDemoForm.SortButtonClick(Sender: TObject);
begin
  ListView.CustomSort(nil, 0);
end;

In der Online-Hilfe von Delphi musst du das Ereignis OnCompare der Komponente TListView nachschlagen.

marabu