![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#8
|
|||
|
|||
![]() Цитата:
Код:
fl:boolean; и на шелчке тогда будет вот так: Код:
procedure TForm1.DBGrid1TitleClick(Column: TColumn); Var f:string; begin f:= Column.FieldName; fl:=not fl; if fl then dm.Tovar.Sort:=f else dm.Tovar.Sort:=f + ' DESC'; end; Новый вирус - "БОМЖ"! Он просто роется в Корзине...и спит под ярлычком "Сетевое окружение" |