link568 link569 link570 link571 link572 link573 link574 link575 link576 link577 link578 link579 link580 link581 link582 link583 link584 link585 link586 link587 link588 link589 link590 link591 link592 link593 link594 link595 link596 link597 link598 link599 link600 link601 link602 link603 link604 link605 link606 link607 link608 link609 link610 link611 link612 link613 link614 link615 link616 link617 link618 link619 link620 link621 link622 link623 link624 link625 link626 link627 link628 link629 link630 link631 link632 link633 link634 link635 link636 link637 link638 link639 link640 link641 link642 link643 link644 link645 link646 link647 link648 link649 link650 link651 link652 link653 link654 link655 link656 link657 link658 link659 link660 link661 link662 link663 link664 link665 link666 link667 link668 link669 link670 link671 link672 link673 link674 link675 link676 link677 link678 link679 link680 link681 link682 link683 link684 link685 link686 link687 link688 link689 link690 link691 link692 link693 link694 link695 link696 link697 link698 link699 link700 link701 link702 link703 link704 link705 link706 link707 link708 link709

Форум — Ответы     (  К темам )
 ?  Вася: TStringGrid ???????? (27-12-2002 18:39:36)
Приветик, помогите пожалуйста!

Нужно отсортировать по алфавиту в рады в TSG... \например соответственно колонки 3 т.е.
Все ряды должны поменяться местами так, чтобы в колонкм 3 все было по алфавиту!

Заранее благодарен!
 Devnvd (27-12-2002 20:36:27)
Пример сортировки строк TStringGrid'а по данным выбранной колонки

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 *SG,int ACol,int DirectSort)
{
int i,j,ARow;
if(!DirectSort)return; // без сортировки
if(!SG->FixedRows)return; //Нет заголовка колонки
if(SG->RowCount <=SG->FixedRows)return; //Нечего сортировать
TList *SortList=new TList; //Список для сортировки
TList *TempList=new TList; //Список для установки строк на новое место
//Заполним список содержимым колонки ACol
for(ARow=SG->FixedRows; ARow < SG->RowCount; ARow++)
{
TMyData *md=new TMyData;
md->ARow=ARow;
md->S=SG->Cells[ACol][ARow];
SortList->Add(md);
//Заполним TempList
TempList->Add((void *)ARow); //Запомним старую расстановку строк
}
if(DirectSort==1)SortList->Sort(CompareUp); //Отсортируем по возрастающей
else SortList->Sort(CompareDown); //Отсортируем по убывающей
//Найдём в каком месте сейчас находится бывшая строка Row
int cRow=SG->Row; //Текущая строка
int cTopRow=SG->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+SG->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=SG->Rows[j+SG->FixedRows]->Text; //Прежнее положение строки
AnsiString Snew=SG->Rows[i+SG->FixedRows]->Text; //Новое положение строки
SG->Rows[j+SG->FixedRows]->Text=Snew;
SG->Rows[i+SG->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;
//....
//.... Это вариант для к
 Devnvd (27-12-2002 20:38:34)
Опять пример не влез.
Пишите письма devnvd@imail.ru
 Devnvd (28-12-2002 08:43:33)
Полный пример упорядочивания строк TStringGrid'а
по данным выбранной колонки. В примере колонка выбирается
кликом мыши на её заголовке, используется отработчик события TStringGrid::OnMouseUp.

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 *SG,int ACol,int DirectSort)
{
int i,j,ARow;
if(!DirectSort)return; // без сортировки
if(!SG->FixedRows)return; //Нет заголовка колонки
if(SG->RowCount <=SG->FixedRows)return; //Нечего сортировать
TList *SortList=new TList; //Список для сортировки
TList *TempList=new TList; //Список для установки строк на новое место
//Заполним список содержимым колонки ACol
for(ARow=SG->FixedRows; ARow < SG->RowCount; ARow++)
{
TMyData *md=new TMyData;
md->ARow=ARow;
md->S=SG->Cells[ACol][ARow];
SortList->Add(md);
//Заполним TempList
TempList->Add((void *)ARow); //Запомним старую расстановку строк
}
if(DirectSort==1)SortList->Sort(CompareUp); //Отсортируем по возрастающей
else SortList->Sort(CompareDown); //Отсортируем по убывающей
//Найдём в каком месте сейчас находится бывшая строка Row
int cRow=SG->Row; //Текущая строка
int cTopRow=SG->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+SG->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=SG->Rows[j+SG->FixedRows]->Text; //Прежнее положение строки
AnsiString Snew=SG->Rows[i+SG->FixedRows]->Text; //Новое положение строки
SG->Rows[j+SG->FixedRows]->Text=Snew;
SG->Rows[i+SG->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;
//....
//.... Это вариант для компонента наследованного от TStrinGrid'а ...
// MoveRow(j+FixedRows,i+FixedRows); //Переставляем строки
// TempList->Move(j,i); //Делаем параллельную перестановку
//....
}
//Удалим списки
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;
SG->Row=newRow;
SG->TopRow=newTopRow; //Покажем текущую строку
}

//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
: TForm(Owner)
{
StringGrid1->Cols[0]->Text="Nn1n2n3n4n5n6n7n8n9";
StringGrid1->Cols[1]->Text="Tn9n8n7n6n5n4n3n2n1";

}
//---------------------------------------------------------------------------

void __fastcall TForm1::StringGrid1MouseUp(TObject *Sender,
TMouseButton Button, TShiftState Shift, int X, int Y)
{
if(Button==mbRight)//Правая кнопка мыши
{
int ACol,ARow;
TStringGrid *SG=(TStringGrid *)Sender;
SG->MouseToCell(X,Y,ACol,ARow);
int DirectSort=0;
if( (ARow>=0 && ARow FixedRows)&& ACol>=0)
{
if(Shift.Contains(ssCtrl))DirectSort=1; //По возрастающей
if(Shift.Contains(ssShift))DirectSort=-1; //По убывающей
Sort(SG,ACol,DirectSort);
}
}
}