subitem [x]に基づいてtlistviewで並べ替える方法

Question

整理する方法 tlistview にデータが存在します subitem[x]?

Answer 1

セットする SortType := stData そして書く

procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
  Data: Integer; var Compare: Integer);
begin
  Compare := StrToInt(Item1.SubItems[x]) - StrToInt(Item2.SubItems[x])
end;

例えば。比較が負の場合、item1はitem2の前に来るはずです。比較が正である場合、反対が適用されます。したがって、subitem [x]が整数を含むと仮定するこの例は、subitem [x]の数値値に従って項目を並べ替えます。

一方、subitem [x]に文字列が含まれている場合、書くことができます

procedure TForm1.ListView1Compare(Sender: TObject; Item1, Item2: TListItem;
  Data: Integer; var Compare: Integer);
begin
  Compare := AnsiCompareText(Item1.SubItems[x], Item2.SubItems[x]);
end;