Сортировка DBGrid (ADOTable)

[Vitalik55]

Помогиту разобратся с сортировкой DBGrid по Title.
Эта процедура работает на весь Title грида? или можно сделать сортировку по нажатию на разные столбцы?

Вот мой код и можноли его использовать для каждого столбца?
procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
if adotable1.sort='Fieldname ASC' then begin
adotable1.sort:='Fieldname DESC';
end else
adotable1.sort:='Fieldname ASC';

[soleil@mmc]

ну дык есть же

Column: TColumn

в самой процедуре на клик по тайтлу - вот его и используй

[Vitalik55]

А как его использовать?) т.е. в if прописать если нажал Column[0] то ... или что?

[ArtInt]

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
begin
if adotable1.sort='Column.FieldName ASC' then begin
adotable1.sort:='Column.FieldName DESC';
end else
adotable1.sort:='Column.FieldName ASC';

Думаю из кода все понятно.

[Vitalik55]

Спасибо большое всё работает ОК
Только код немного изменил

if column.FieldName='Êîíòðàãåíòû' then begin
if adotable1.sort='Êîíòðàãåíòû ASC' then begin
adotable1.sort:='Êîíòðàãåíòû DESC';
end else
adotable1.sort:='Êîíòðàãåíòû ASC';
end;