领悟旧事

对ListBox或FileListBox进行排序的代码

void __fastcall TForm1::ListBoxSort(TFileListBox *lb)
{
   if ( lb->Items->Count > 1 )
   {
   bool swapped;
   do
   {
   int counter = lb->Items->Count - 1;
   swapped = false;
   while ( counter - 1 > 0 )
   {

      // Compare the items' length.
      if ( lb->Items->Strings[ counter ].Length() < lb->Items->Strings[ counter - 1 ].Length() )
      {

      // Swap the items.
      AnsiString temp = lb->Items->Strings[ counter ];
      lb->Items->Strings[ counter ] = lb->Items->Strings[ counter - 1 ];
      lb->Items->Strings[ counter - 1 ] = temp;
      swapped = true;
      }

      // Decrement the counter.
      counter -= 1;
   }
   }
   while ( (swapped == true) );
   }
}
//---------------------------------------------------------------------------
//调用未例
void __fastcall TForm1::FileListBox1Change(TObject *Sender)
{
 ListBoxSort(FileListBox1);
}
//---------------------------------------------------------------------------

【关闭窗口】

 访问量：507982

用微信扫一扫分享到

好友和朋友圈