_
http://club.shelek.com/viewart.php?id=100или
В DBGrid это делается так - на событие DBGrid1OnTitleClick пишем обработчик,
CODE
{
if (ADOTable1->Active)
if ((Column->FieldName, ADOTable1->Sort) > 0 && ("ASC", ADOTable1->Sort) > 0)
ADOTable1->Sort = Column->FieldName + "DESC";//сортировка по убыванию
else ADOTable1->Sort = Column->FieldName + "ASC";//по возрастанию
}
Вместо ADOTable может быть ADOQuery или ADOStoredProc