dxmemdata 连接 dbgrideh进行排序

procedure TForm1.DBGridEh1TitleBtnClick(Sender: TObject; ACol: Integer;
  Column: TColumnEh);
begin
  with Column do
  begin
    if FieldName = '' then Exit;
    dxMemData1.SortedField := Column.FieldName;
    case Title.SortMarker of
    smNoneEh: Title.SortMarker := smDownEh;
    smDownEh: dxMemData1.SortOptions := [soDesc];
    smUpEh: dxMemData1.SortOptions := [];
    end;
  end;
end;