Bueno.,... segui con las pruebas....
lo que hice fue crear una unidad nueva, pero me da error....
con el código que puso Roman cree esta unidad
Código Delphi
[-]
unit Unit17;
interface
uses
TypInfo, DBClient, DB;
procedure SortCDS(DataSet: TClientDataSet; Column: TColumn);
implementation
procedure SortCDS(DataSet: TClientDataSet; Column: TColumn);
var
IndexName: String;
IndexOptions: TIndexOptions;
begin
if DataSet.IndexName = Column.FieldName + '_IdxA' then
begin
IndexName := Column.FieldName + '_IdxD';
IndexOptions := [ixDescending];
end
else
begin
IndexName := Column.FieldName + '_IdxA';
IndexOptions := [];
end;
if DataSet.IndexDefs.IndexOf(IndexName) = -1 then
DataSet.AddIndex(IndexName, Column.FieldName, IndexOptions);
DataSet.IndexName := IndexName;
end;
end.
pero me da el error de compilación
Unit17.pas(8): Undeclared identifier: 'TColumn'
Unit17.pas(18): Then expected but identifier 'FieldName' found
bueno y da otros más... quizas puede ser por que faltan algunas uses....
Salu2