Listview Caption nach zahlen sortieren

[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