TListView点击表头进行排序和显示图标的方法

这种方法是响应了OnColumnClick和OnCompare这两个事件，其中在OnColumnClick中调用TListView中的CustomSort函数，并把此函数的第一个参数设为nil把OnCompare事件激活的。在OnCompare事件中，按照Delphi的例子，调用了CompareText函数进行排序，把CompareText的返回值赋给OnCompare事件函数的Compare参数达到排序的目标。为什么把CompareText的返回值赋给Compare就能达到排序目的我也不是很清楚，但我知道如果把进行升序或倒序的交替，就要把Compare取正数或取负数进行交替就可以了，这一点在代码中有一句：Compare := -Compare;这可以看出来。如果把这一句去去掉，重复点击同一个表头就不能实现升序与降序交换的效果。另外，CompareText是根据字符的大小进行排序的。如果想进行数字的排序，比较的两个数字的长度是一样的才能实现真正的比较。如：想比较2和12的大小就就应该比较02和12的大小，不然就会出现12比2小的情况(载图中的数字21用021表示就是保有证所有数字是三个字符组成）。这种方法是响应了OnColumnClick和OnCompare这两个事件，其中在OnColum