Сортировка базы

← →
Viktop (2005-10-06 18:52) [0]

Как при щелчке в DBGrid (по заголовку столбца) отсортировать этот столбец

← →
Weare (2005-10-06 18:56) [1]

Удалено модератором
Примечание: Личная переписка

← →
Desdechado © (2005-10-06 21:50) [2]

сортируется не "база", а отображаемый набор данных
если это у тебя таблица (TTable), переключаешь на соответствующий индекс
если это TQuery, то можно сделать перезапрос к базе, а можно использовать ClientDataSet, он поддерживает сортировку без переобращения к БД

← →
Viktop (2005-10-07 04:39) [3]

Удалено модератором
Примечание: Личная переписка

← →
Viktop (2005-10-07 08:46) [4]

to Desdechado
А как это сделать?
И ещё вопроспара вопросов:
2. если индекс составной (фамилия+имя), то как происходит сортировка.
3. как преодолеть размер строки (надо, чтобы более 255 символов, примерно 400)

← →
Viktop (2005-10-09 09:09) [5]

Удалено модератором
Примечание: Личная переписка

← →
Плохиш © (2005-10-09 11:04) [6]

Удалено модератором
Примечание: Воспитательную работу я сам проведу

← →
Floppy © (2005-10-09 11:17) [7]

Это не есть сортировка базы - это сортировка отображения"
Если подождешь, то пришлю код или ссылку:)

← →
Floppy © (2005-10-09 11:33) [8]

Идея очень проста:
procedure TForm1.ListView1ColumnClick(Sender: TObject; Column: TListColumn);
begin
CustomNameSortProc(Item1, Item2: TListItem; ParamSort: integer):
end;

function CustomNameSortProc(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
begin
result:=0;
if (item1.SubItems[colN])> (item2.SubItems[colN]) then
Result :=1
else
if (item1.SubItems[colN])< (item2.SubItems[colN]) then
Result :=-1;
end;
возможно где-то не корретно, но я объявляю это в глобальных переменных:)
var ColN: Byte;
//colN - номер "колонки" и определяю и назначаю при клике на колонку

А лучше прогуляться сюда:
http://delphiworld.narod.ru/_all_articles_.html
Здесь есть практически все

Сортировка таблицы делается с помощь БДЕ функции dbiSortTable - настоятельно не рекомендую не делать этого, еще в начале 80 годов отказались от сортировки, в пользу упорядочивания вывода.
Для Парадокса нормальное упорядочивание сделать нельзя.

← →
Viktop (2005-10-09 16:38) [11]

Вроде сделал
procedure TfmMain.dgMainTitleClick(Column: TColumn); begin try Table.IndexFieldNames := Column.FieldName; except end; end;

> Anatoly Podgoretsky © (09.10.05 13:46) [10]
А причем здесь Сортировка таблицы делается с помощь БДЕ функции dbiSortTableРечь то идет о гриде а не о таблице???

Сортировка базы Найти похожие ветки