Alt Tüzüğe göre Tlistview'da sıralama [x]

Question

'da subitem[x] veri var mı?

Answer 1

Seti SortType := stData ve örneğin

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

yazın. Karşılaştırma negatif ise, Öğe1, Öğe2'den önce gelmelidir; Karşılaştırma pozitif ise, tam tersi geçerlidir. Bu nedenle, SubItem [x] 'in bir tamsayı içerdiğini varsayan bu örnek, öğeleri SubItem [x]' in sayısal değerine göre sıralayacaktır. Öte yandan, AltÖğe [x] dizeleri içeriyorsa, o zaman yazabilirsiniz

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