[Black Raider]

Сообщение от windaws

Да надо просто посчитать и вывести, тогда запросом сделаю.
Есть еще 1 вопрос Таблицу сортирую по алфавиту с помощью события онTitleClick

Код:

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
Var
f:string;
begin
    f:= Column.FieldName;
    dm.Tovar.Sort:=f + ' DESC';
end;

Можно ли как нибудь сделать так чтобы, нажимаешь 1 раз на столбец сортируется по возрастанию, еще раз щелкаешь по убыванию?

Код:

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
Var
f:string;
begin
    f:= Column.FieldName;
if dm.Tovar.Sort=f + ' DESC' then dm.Tovar.Sort:=f
else
    dm.Tovar.Sort:=f + ' DESC';
end;

можно флаг сортировки завести