Botanical Garden

int SortByColumn = -1;                                  //
int SortOrder = 1;                                      //

void __fastcall TForm1::ListView1ColumnClick(TObject *Sender, TListColumn *Column)
{
   if(SortByColumn == Column->Index) SortOrder *= -1;  //
   else SortOrder = 1;                                 //
   ListView1->CustomSort(NULL, Column->Index);
   SortByColumn = Column->Index;                       //
}

void __fastcall TForm1::ListView1Compare(TObject *Sender, TListItem *Item1,
     TListItem *Item2, int Data, int &Compare)
{
   if(Data == 0)
   {
       if(Item1->Caption < Item2->Caption) Compare = -1;
       else if(Item1->Caption > Item2->Caption) Compare = 1;
       else Compare = 0;
   }
   else
   {
       if(Item1->SubItems->Strings[Data-1] < Item2->SubItems->Strings[Data-1]) Compare = -1;
       else if(Item1->SubItems->Strings[Data-1] > Item2->SubItems->Strings[Data-1]) Compare = 1;
       else Compare = 0;
   }
   Compare *= SortOrder;                               //
}