Fórum DBGrid #408664

procedure TForm1.DBGrid1TitleClick(Column: TColumn);
var
  vlbMesmoCampo: Boolean;
  vloIndices: TStrings;
  vliCont: Integer;
begin
  inherited;
  try
    vlbMesmoCampo := False;
    vloIndices := TStringList.Create;
    ClientDataSet1.GetIndexNames(vloIndices);
    ClientDataSet1.IndexName := EmptyStr;
    vliCont := vloIndices.IndexOf(idx + Column.FieldName);
    if vliCont >= 0 then
    begin
      vlbMesmoCampo := not (ixDescending in ClientDataSet1.IndexDefs[vliCont].Options);
      ClientDataSet1.DeleteIndex(idx + Column.FieldName);
    end;
    ClientDataSet1.AddIndex(idx + Column.FieldName, Column.FieldName, [], IfThen(vlbMesmoCampo, Column.FieldName));
    ClientDataSet1.IndexName := idx + Column.FieldName;
  finally
    FreeAnNil(vloIndices);
  end;
end;