BCB中TListView的列表排序问题

TlistView列表排序问题
  主要实现功能是只要用户使用鼠标点击TListView记录列表框的某一列的标题头就可以以该项内容为基础按照字母排列顺序对所有记录进行排序，如果用户连续两次点击同一列则可以在升序排列和降序排列之间切换。
  列表排序这个功能基本上由TListView自己提供的函数便可以实现，OnColumnClick函数、AlphaSort函数和OnCompare函数，其中OnColumnClick是对列表的列头点击事件的处理函数可以在其中判断是哪一列的标题头被点击并利用列表框控件的AlphaSort函数对列表框中的记录进行排序。 
  AlphaSort函数可以依据两种标准来进行排序：
    一是根据列表框控件的SortType属性，该属性支持按照列表项的Caption属性以及Data属性进行排序。
    二是使用OnCompare事件处理函数，它可以实现对任意一个子列进行排序，通过简单地设置SortType属性不能按照任何子列排序因。
  OnCompare事件处理函数在排序时会AlphaSort函数调用后会自动调用该函数来比较两个列表项的次序，并根据OnCompare返回的结果进行排序。 
  
  TlistView还有一个常用属性Tag，该属性可以在控件对象中保存一个整数值，该属性的意义可以由程序自行进行解释。例如：窗体上有一组相同控件的多个对象时就可以为各个对象赋予不同的Tag属性值以此来区分不同的对象
  
  函数声明：
  ColumnClick(TObject *Sender,TListColumn *Column);
  Sender：传递操作对象的指针
  Column：被点击的记录
  OnCompare(TObject *Sender, TListItem *Item1,TListItem *Item2, int Data, int &Compare);
  Sender：传递操作对象的指针
  Item1、Item2：进行比较的列表项

  Compare：通过参数Compare返回比较的结果

eg：

//OnColumn函数
  void __fastcall TfrmSortTest::SortTestColumnClick(TObject *Sender,TListColumn *Column)
  {
    if(m_nColumnToSort==Column->Index)
    {
      //若两次点击同一列则改变升序排还是降序排的Tag标志
      Column->Tag = 1-Column->Tag;
    }

    m_nColumnToSort = Column->Index;//保存当前点击的列号
    //排序 lvInvoice为界面的TListView控件指针
    lvInvoice->AlphaSort();
  }

//Compare函数
  void __fastcall TfrmSortTest::SortTestCompare(TObject *Sender, TListItem *Item1,TListItem *Item2, int Data, int &Compare)
  {
    if (m_nColumnToSort == 0)
    {
      //如果列号为0则按列表项Caption属性进行比较
      Compare = CompareText(Item1->Caption,Item2->Caption);
    }
    else 
    {
      //如果列号不为0则计算子列的序号并按子列项进行比较
      int ix = m_nColumnToSort-1;
      Compare = CompareText(Item1->SubItems->Strings[ix], Item2->SubItems->Strings[ix]);
    }
		
    //Tag为1时升序排列，为0时降序排列
    if(lvInvoice->Columns->Items[m_nColumnToSort]->Tag)
    {
      Compare = -Compare;
    }
  }