उपशीर्षक [x]

Question

पर आधारित Tlistview में कैसे क्रमबद्ध करें 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; 

उदाहरण के लिए

। यदि तुलना नकारात्मक है, तो आइटम 1 आइटम 2 से पहले आना चाहिए; यदि तुलना सकारात्मक है, तो विपरीत लागू होता है। इस प्रकार यह उदाहरण, जो मानता है कि SubItem [x] में एक पूर्णांक होता है, आइटम को SubItem [x] के संख्यात्मक मान के अनुसार क्रमबद्ध करेगा।

हैं, तो दूसरी ओर, सब आइटम [x] तार शामिल हैं, तो आप लिख सकते हैं

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