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