Ordenar o DBGrid ligado em um RXMemoryData

[danielrgoes]

Bom dia Pessoal

eu tenho um codigo para ordenar um DBGrid ligado em um DataSourse que por sua vez em ligado em um SQLQuery,CDS,DSP

quando eu clico na coluna

procedure TFrm_projeto.DBGrid4TitleClick(Column: TColumn);

var

i ,col:integer;

begin

Try

for i:=0 to Column.Grid.FieldCount - 1 do

begin

DBGrid4.Columns.Items.Title.Font.Color:=ClBlack;//Cor da Fonte

DBGrid4.COLUMNS.ITEMS.TITLE.FONT.STYLE := [];//Cot da Fonte

DBGrid4.Columns.Items.Title.Color:=clBtnFace;//Cor do Fundo do Titulo Normal

Column.Title.Color :=clSilver;//Cor do Fundo do Titulo Selecionado

COLUMN.TITLE.FONT.STYLE := [FSBOLD];

Column.Title.Font.Color:=ClBlue;

Column.Font.color:=clTeal;

Col:= DBGrid4.Columns[Column.Index].Index;

DBGrid4.Columns.Items.Font.color:=ClBlack;

(modulo.DS_projeto.DataSet as TClientDataSet).IndexFieldNames := Column.FieldName;

end;

Except

ShowMessage('Não foi possivel organizar');

End;

end;

Bom ele funciona muito bem porem agora eu estou precisando fazer o seguinte

Ordenar da mesma forma potem o meu DBdrid é ligado em um DataSource mais agora o DS é ligado em um RXMemoryData

como faço para ordenar dessa forma

[Jhonas]

Bom ele funciona muito bem porem agora eu estou precisando fazer o seguinte:

Ordenar da mesma forma potem o meu DBdrid é ligado em um DataSource mais agora o DS é ligado em um RXMemoryData

O RxMemoryData funciona igualzinho ao ClientDataSet .... Basta colocar um componente RxMemoryData e linka-lo a um DataSource

depois é só copiar a estrutura para o RxMemoryData do TDataSource da Query

procedure TForm1.Button1Click(Sender: TObject);
begin
   RxMemoryData1.loadFromDataSet(Query1, 0, lmCopy);
   RxMemoryData1.Active := true;
end;

abraço

[Marlos Noel]

e);

Editado Julho 7, 2023 por Marlos Noel