ClientDataSet сортировка

@flash1989 · Регистрация: 03.09.2010

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

Добрый день, у меня есть ClientDataSet, DbGrid, DataSource. Данные отображаются в Гриде и сортируются по нажатию на Title таким вот образом:

Pascal

procedure TfMain.DBGrid1TitleClick(Column: TColumn);
begin
  ClientDataSet1.IndexFieldNames:=Column.FieldName;
end;

Но сортирует оно по возрастанию, а мне надо сделать чтобы при повторном нажатии на Title сортировало по убыванию или хотя бы программный код сортировки по убыванию в моем случае. Подскажите плз как это сделать, только без использования TMS Component, Ehlib и т.д. Буду очень благодарен.

@anonymou5 · 18.08.2011, 14:40

Pascal

1 2	Prior; end;{while FieldByName('X').AsInteger=X}

@flash1989 · 18.08.2011, 14:42 **[ТС]**

извиняюсь, но я немного не понял данный код, prior - это переход предыдущую запись. Чесно сказать не разобрался, опишите если можно подетальнее

@anonymou5 · 18.08.2011, 14:53

Pascal

// последняя запись
  Prior; // возможно, уже пропустили
  while (FieldByName('X').AsInteger=X) and not(BOF) do
  begin
    
    Delete; // удалили сколько надо и сдвинулись
    Prior;
  end;
  Prior; // на следующей итерации - опять можем пропустить

@flash1989 · 18.08.2011, 15:07 **[ТС]**

Чесно вообще непонятно причем это к сортировке. Сортировка насколько я знаю осуществляется с помощью индексных полей. У меня реализована по возрастанию, надо сделать аналогично только по убыванию

@anonymou5 · 18.08.2011, 15:12

Pascal

s_elect t1.id, t1.sum, t2.type_
f_rom t1, t2
w_here t1.id=t2.id and t2.type_= 0 (или 1)
order by t1.sum

Понятнее?

@flash1989 · 18.08.2011, 15:25 **[ТС]**

Это sql запрос, у меня база в формате .cds. Могу скинуть проэкт чтобы было яснее что там происходит

@MsGuns · 18.08.2011, 15:49

TIndexDef.DescFields + F1

@flash1989 · 18.08.2011, 15:56 **[ТС]**

Спасибо большое, как же все просто...

Cheb · 23.03.2012, 11:17

Что нельзя было по-нормальному объяснить или код с результатом выложить?

@rdama · 23.03.2012, 12:54

Cheb, Нет нельзя. Вам подсказывают откуда взять знания. а вы сами берите. Мы уже эти знания получили.
Учитесь вы.
А ваше напишите код , а я вставлю в проект ничему вас не научит...

Cheb · 23.03.2012, 13:25

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

А ваше напишите код , а я вставлю в проект

Я такое не говорил никогда, не в этом посте, ни в каком другом, А только вопрос задал..
Всегда стараюсь сделать сам, но тк неопытен нуждаюсь в подсказках, ведь форумы за тем и нужны ,что бы подсказывать друг другу.
А если кому-то трудно (подсказывать) так зачем ответ писать и заходить на форумы, раз уже "знания получили".

На форум заходят:
1) те кто хочет получить помощь, подсказки.
2) те у кого есть чем поделиться, есть желание, есть время.

Если желания помочь нет, что толку от вашего сообщения?

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

Учитесь вы

Я и учусь:

Delphi

var sort_typ:string;
 
///......
procedure TDBGrid.OnTitleClick(Column: TColumn);
begin
   if sort_typ = '' then sort_typ:=Column.FieldName
                       else sort_typ:='';
   form1.ClientDataSet.AddIndex(Column.FieldName + sort_typ, Column.FieldName,[ixCaseInsensitive], sort_typ, '' , 0);
   form1.ClientDataSet.IndexName := Column.FieldName + sort_typ ;
end;

вот для всех новичков , кто интересуется обратной сортировкой. Сортирует DBGrid по любой колонке, как в прямом, так и в обратном направлении.

@rdama · 23.03.2012, 14:05

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

Что нельзя было по-нормальному объяснить или код с результатом выложить?

Ну так а это не о том что дайте готовый код?
А направление уже дали

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

TIndexDef.DescFields + F1

Нужно только понять как идти...

Новые блоги и статьи
Как проверить, что файл НЕ существует с помощью Bash bytestream 25.01.2025 В системном администрировании проверка существования файлов является фундаментальной операцией, особенно при написании скриптов на Bash. Правильная обработка ситуаций, когда файл отсутствует,. . .	Как проверить, что строка пустая, неопределена или null в JavaScript bytestream 25.01.2025 При разработке веб-приложений на JavaScript разработчики регулярно сталкиваются с необходимостью проверки строковых значений на различные состояния. Валидация данных является критически важным. . .	Как проверить существование ключа в объекте или массиве в JavaScript bytestream 25.01.2025 При разработке веб-приложений на JavaScript программисты постоянно сталкиваются с необходимостью работать с объектами и массивами. Эти структуры данных являются фундаментальными элементами языка и. . .	Как создать ArrayList из массива (array) в Java bytestream 25.01.2025 При разработке программного обеспечения на языке Java программисты часто сталкиваются с необходимостью эффективного управления наборами данных. Массивы и ArrayList являются двумя фундаментальными. . .	Как сгенерировать случайные целые числа (int) в указанном диапазоне в Java bytestream 25.01.2025 В программировании генерация случайных чисел является важнейшим инструментом для решения множества практических задач. От создания игровых механик до реализации алгоритмов машинного обучения, от. . .	Как сделать, чтобы grep выводил строки до и после найденной hw_wired 25.01.2025 Утилита grep стала незаменимым инструментом для поиска и фильтрации информации в Unix-подобных операционных системах. Эта командная утилита позволяет осуществлять поиск строк, соответствующих. . .
Как клонировать определенную ветку в Git bytestream 24.01.2025 Одной из ключевых функций Git является возможность клонирования веток, что позволяет создавать локальные копии удаленных репозиториев и работать с определенными версиями проекта. Этот механизм. . .	Как в цикле обойти строки DataFrame в Pandas Python bytestream 24.01.2025 DataFrame представляет собой одну из основных структур данных в библиотеке Python Pandas, которая организует информацию в виде двумерной таблицы с строками и столбцами. Эта структура данных особенно. . .	Как получить имя текущей ветки в Git bytestream 24.01.2025 При работе с Git часто возникает необходимость определить имя текущей ветки, в которой ведется разработка. Знание текущей ветки является критически важным аспектом для эффективного управления. . .	Как отсортировать массив объектов по значению поля объекта в JavaScript bytestream 24.01.2025 При разработке веб-приложений на JavaScript разработчики часто сталкиваются с необходимостью работать с массивами объектов. Эти структуры данных представляют собой упорядоченные наборы элементов, где. . .	Ошибка "src refspec master does not match any" при пуше коммита в Git bytestream 24.01.2025 При работе с системой контроля версий Git разработчики нередко сталкиваются с различными ошибками, одной из которых является сообщение "src refspec master does not match any". Эта ошибка возникает. . .	Как округлить не более двух цифр после запятой в JavaScript bytestream 24.01.2025 При работе с числами в JavaScript разработчики часто сталкиваются с необходимостью округления десятичных значений до определенного количества знаков после запятой. Это особенно важно при работе с. . .

@flash1989 52 / 60 / 24 Регистрация: 03.09.2010 Сообщений: 1,242
	18.08.2011, 14:42 [ТС]	3
	извиняюсь, но я немного не понял данный код, prior - это переход предыдущую запись. Чесно сказать не разобрался, опишите если можно подетальнее 0

@flash1989 52 / 60 / 24 Регистрация: 03.09.2010 Сообщений: 1,242
	18.08.2011, 15:07 [ТС]	5
	Чесно вообще непонятно причем это к сортировке. Сортировка насколько я знаю осуществляется с помощью индексных полей. У меня реализована по возрастанию, надо сделать аналогично только по убыванию 0

@MsGuns 1497 / 1238 / 245 Регистрация: 04.04.2011 Сообщений: 4,363
	18.08.2011, 15:49	8
	TIndexDef.DescFields + F1 1

@flash1989 52 / 60 / 24 Регистрация: 03.09.2010 Сообщений: 1,242
	18.08.2011, 15:56 [ТС]	9
	Спасибо большое, как же все просто... 0

Cheb 92 / 59 / 8 Регистрация: 09.11.2011 Сообщений: 443
	23.03.2012, 11:17	10
	Что нельзя было по-нормальному объяснить или код с результатом выложить? 0

@rdama 569 / 292 / 12 Регистрация: 28.01.2011 Сообщений: 1,326
	23.03.2012, 12:54	11
	Cheb, Нет нельзя. Вам подсказывают откуда взять знания. а вы сами берите. Мы уже эти знания получили. Учитесь вы. А ваше напишите код , а я вставлю в проект ничему вас не научит... 0

@rdama 569 / 292 / 12 Регистрация: 28.01.2011 Сообщений: 1,326
	23.03.2012, 14:05	13
	Сообщение от Cheb Что нельзя было по-нормальному объяснить или код с результатом выложить? Ну так а это не о том что дайте готовый код? А направление уже дали Сообщение от MsGuns TIndexDef.DescFields + F1 Нужно только понять как идти... 0