ClientDataSet сортировка

[bilibian]

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

SQLite, MS Acces, FireBird

Мне необходима такая база, чтобы не требовала установки, если брать MS Acces, то необходимо ее для начала поставить. Прогу удобнее перемещать без всяких хвостов, то есть не тащить при необходимости базу за собой. Прога определяет, если файла с базой нет в каталоге с прогой, то она создает новый. ClientDataSet идеально для всего этого подходит.

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

Вы лучше скажите, с сортировкой разобрались? Всё работает?

Да, все работает, спасибо! Но есть один нюанс, например, если в одном поле все выравнено по убыванию, то в другом поле нужно кликать дважды, чтобы отсортировало в другом направлении.

if ClientDataSet1.FieldByName(Column.FieldName).Tag=0 then begin
  ClientDataSet1.addindex(Column.FieldName + '_DESC', Column.FieldName,[ixDescending]);
  ClientDataSet1.IndexName := Column.FieldName + '_DESC';
  ClientDataSet1.FieldByName(Column.FieldName).Tag := 1;
end else begin
  ClientDataSet1.IndexFieldNames:=Column.FieldName;
  ClientDataSet1.FieldByName(Column.FieldName).Tag := 0;
end;

[bilibian]

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

Но есть один нюанс, например, если в одном поле все выравнено по убыванию, то в другом поле нужно кликать дважды, чтобы отсортировало в другом направлении.

Сделал так, ошибка

procedure TForm4.DBGrid1TitleClick(Column: TColumn);
  var
    I:Integer;
begin
  with ClientDataSet1 do
    if FieldByName(Column.FieldName).Tag=0 then
     begin
      addindex(Column.FieldName + '_DESC', Column.FieldName,[ixDescending]);
      IndexName := Column.FieldName + '_DESC';

      for I := 0 to FieldCount-1 do
        FieldByName(Column.FieldName[I]).Tag := 1;
     end
    else
     begin
      IndexFieldNames:=Column.FieldName;
      for I := 0 to FieldCount-1 do
        FieldByName(Column.FieldName[I]).Tag := 0;
     end;
end;