Форум программистов [Powered by Invision Power Board]

Код

//Сортировка
typedef struct {
  int ARow; //Номер строки 
  AnsiString S; //содержимое ячейки сортируемой колонки
}TMyData;
//Вспомогательная функция сортировки 
static int __fastcall CompareUp(void * Item1, void * Item2)
{
  return ((TMyData *)Item1)->S.AnsiCompare(((TMyData *)Item2)->S); 
} 
//Вспомогательная функция сортировки 
static int __fastcall CompareDown(void * Item1, void * Item2) 
{ 
  return ((TMyData *)Item2)->S.AnsiCompare(((TMyData *)Item1)->S); 
} 
//Сортировка строк в SG по содержимому колонки ACol 
//DirectSort==1 - по возрастающей, ==-1 - по убывающей 
//          ==0 -без сортировки 
static void __fastcall Sort(TStringGrid *StringGrid1,int ACol,int DirectSort)
{
  DirectSort == -1;
  int i,j,ARow;
  if(!DirectSort)return; // без сортировки 
  if(!StringGrid1->FixedRows)return; //Нет заголовка колонки
  if(StringGrid1->RowCount <=StringGrid1->FixedRows)return; //Нечего сортировать
  TList *SortList=new TList; //Список для сортировки
  TList *TempList=new TList; //Список для установки строк на новое место 
  //Заполним список содержимым колонки ACol 
  for(ARow=StringGrid1->FixedRows; ARow < StringGrid1->RowCount; ARow++)
  {
    TMyData *md=new TMyData;
    md->ARow=ARow;
    md->S=StringGrid1->Cells[ACol][ARow];
    SortList->Add(md);
    //Заполним TempList
    TempList->Add((void *)ARow); //Запомним старую расстановку строк
  }
  if(DirectSort==1)SortList->Sort(CompareUp); //Отсортируем по возрастающей
  else SortList->Sort(CompareDown); //Отсортируем по убывающей
    //Найдём в каком месте сейчас находится бывшая строка Row
  int cRow=StringGrid1->Row; //Текущая строка
  int cTopRow=StringGrid1->TopRow; //Текущая верхняя строка
  int newRow=cRow;
    for(j=0; j < SortList->Count; j++)
    {
     TMyData *md=(TMyData *)(SortList->Items[j]);
      if(cRow==md->ARow)break;
    }
    if(j < SortList->Count)newRow=j+StringGrid1->FixedRows;

  for(i=0; i < SortList->Count; i++)
  {
    TMyData *md=(TMyData *)(SortList->Items[i]);
    //Возьмём номер строки в начальной расстановке
    ARow=md->ARow;
    //Найдём в каком месте сейчас находится бывшая строка ARow
    for(j=0; j < TempList->Count; j++)
    {
      if(ARow==(int)TempList->Items[j])break;
    }
    //Сейчас строка находится на месте j+FixedRows
    //Надо её переставить на место i+FixedRows
//.... Это вариант для стандартного StringGrid'а ..... 
    AnsiString Sold=StringGrid1->Rows[j+StringGrid1->FixedRows]->Text; //Прежнее положение строки
    AnsiString Snew=StringGrid1->Rows[i+StringGrid1->FixedRows]->Text; //Новое положение строки
    StringGrid1->Rows[j+StringGrid1->FixedRows]->Text=Snew;
    StringGrid1->Rows[i+StringGrid1->FixedRows]->Text=Sold;
    //Делаем параллельную перестановку в TempList 
    int jold=(int)(TempList->Items[j]); 
    int inew=(int)(TempList->Items[i]); 
    TempList->Items[j]=(void *)inew; 
    TempList->Items[i]=(void *)jold; 
  } 
  //Удалим списки
  delete TempList; 
  for(i=0; i < SortList->Count; i++) 
  { 
    delete (TMyData *)(SortList->Items[i]); 
  } 
  delete SortList; 
  int newTopRow=newRow-(cRow-cTopRow); 
  if(newTopRow < 1)newTopRow=1; 
  StringGrid1->Row=newRow;
  StringGrid1->TopRow=newTopRow; //Покажем текущую строку
}