Сортировка в DBGrid

@Dam · Регистрация: 25.01.2008

Студворк — интернет-сервис помощи студентам

Здравствуйте. Возникла проблема: ОЧЕНЬ нужно чтобы при нажатии на кнопку,
в компоненте DBGrid происходила сортировка содержимого по алфавиту.
Пожалуйста напишите как (если можно с примером кода).:huh:

@Lord_Voodoo · 16.02.2010, 16:30

Landser,ну так ты выбранному ставь цвет крассный, а остальным - черный цвет в цикле

@Landser · 16.02.2010, 20:45

..выбранному ставь цвет крассный, а остальным - черный цвет в цикле

циклу по колонкам что ли?

Delphi
1
2
3
4
 for i:=0 to dbgrid3.Columns.Count-1 do
 begin
   DbGrid3.Columns[i].title.font.color:=clred;
  end;

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

@Lord_Voodoo · 16.02.2010, 20:48

Landser, да уж...

Delphi
1
2
3
4
5
6
7
 for i:=0 to dbgrid3.Columns.Count-1 do
 begin
   if i = DbGrid3.SelectedIndex then 
     DbGrid3.Columns[i].title.font.color:=clred
   else 
     DbGrid3.Columns[i].title.font.color:=clgreen;
  end;

@Landser · 16.02.2010, 21:04

Landser, да уж...

да уж)))ума не приложу, как сам не догадался, просто самому смешно

спасибо, Lord_Voodoo!

@proggamer12 · 12.11.2013, 17:48

Здравствуйте.
Вы написали, что для TADOTable можно использовать это:

Delphi
1
adotable.sort:=column.fiedname;

И при таком варианте при кликах по разным полям по ним будет идти сортировка.
Но что делать с TADOQuery?
Заранее благодарен,
proggamer12.

@proggamer12 · 17.11.2013, 21:08

Решил вопрос:
Если первый клик по колонке (вообще), то добавляем новую строку, если не первый - то удаляем последнюю строку и добавляем новую.

@on-lite · 17.12.2018, 11:21

в TTable нужно прописать индексы и можно выполнить сортировку прописывая лишь одну строку.
Title -> TitleBatton сделать true.
в событии .DBGridEh1TitleBtnClick

Delphi
1
Table1.IndexFieldNames:=Column.FieldName;

и сортирует по колонкам с индексами, где не прописаны индексы, там не сортирует и ошибок не выдаёт.
прошлый век, но может кому нужно, студентам например.

@proggamer12 · 17.12.2018, 12:03

Спасибо за ответ!

Новые блоги и статьи Все статьи Все блоги /
тв 16 бой ии anaschu 27.07.2026 Великий Перелом ИИ: Как уравнения ОДУ Radau дожали цензурные фильтры Алисы Фиксируем в мемофонде Теории Всего беспрецедентный факт в истории ИИ-зондирования. В затяжном многораундовом. . .	мв 15. непроверенное, возможно, глюк anaschu 27.07.2026 НАУЧНО-АНАЛИТИЧЕСКИЙ ОТЧЕТ. РАЗДЕЛ 1. 1: «НАУКА» (РАСШИРЕННАЯ СТЕХИОМЕТРИЧЕСКАЯ И ГЕНЕТИЧЕСКАЯ ВЕРСИЯ)Тема: Теоретическое обоснование инвариантности 19-мерного тензорного ядра непрерывных ОДУ и. . .	Очистка реквизитов и табличных частей документа при копировании Maks 26.07.2026 Алгоритм из решения ниже разработан на примере нетипового документа "ЗаявкаНаРаботу", разработанного в КА2. Задача: Заменить алгоритм запрета копирования документов для сотрудников с ролью "Стажер",. . .	Доктрина интенционального знания - Доктрина для портала "Срез". Hrethgir 25.07.2026 Может найдётся кто захочет оценить доктрину. . . Написания правил участия для меня роскошь, требующая лимита времени, поэтому все сообщения не прошедшие модерацию будут видны только участникам портала,. . .
сукцессия 44. Решил подать на припринт в межународные сервисы препринтов. Но нужно одобрение от ученых anaschu 25.07.2026 Английский вариант. Пока кто то не одобрит мою личность, мне не получиться это опубликовать на препринте. Но заявку на публикацию статьи я сегодня подам.	сукцессия 43. Вторая научная статья за месяц- прайминг и гатгил anaschu 25.07.2026 две стороны одной монеты	Более приземисто - Эстафету хвоста в .cdl (деревья эстафеты в сад). Hrethgir 24.07.2026 В будущем, после написания блока инверсии обхода дерева (эстафеты хвоста), я планирую вернуться к нашему прошлому разговору о том, обладают ли знания целеполаганием. Тогда я пришел к выводу, что. . .	Вот представьте что вам дали бессмертие. kumehtar 24.07.2026 Вот представьте что вам дали бессмертие, ничего более не меняя. Вообще ничего, только бессмертие в нынешнем виде. Рады были бы? Что бы вы тут делали всё это время? Никакой пенсии. Никакого нового. . .

@Dam 6 / 6 / 1 Регистрация: 25.01.2008 Сообщений: 13

	Сортировка в DBGrid 16.06.2008, 19:15. Показов 94618. Ответов 47 Метки нет (Все метки) Здравствуйте. Возникла проблема: ОЧЕНЬ нужно чтобы при нажатии на кнопку, в компоненте DBGrid происходила сортировка содержимого по алфавиту. Пожалуйста напишите как (если можно с примером кода).:huh: 0

@Lord_Voodoo Почетный модератор 8785 / 2538 / 144 Регистрация: 07.03.2007 Сообщений: 11,873
	16.02.2010, 16:30
	Landser,ну так ты выбранному ставь цвет крассный, а остальным - черный цвет в цикле 1

@proggamer12 17 / 17 / 4 Регистрация: 06.07.2012 Сообщений: 510
	17.11.2013, 21:08
	Решил вопрос: Если первый клик по колонке (вообще), то добавляем новую строку, если не первый - то удаляем последнюю строку и добавляем новую. 0

@proggamer12 17 / 17 / 4 Регистрация: 06.07.2012 Сообщений: 510
	17.12.2018, 12:03
	Спасибо за ответ! 0