Cita:
|
Empezado por dago_Ariza
No Entiendo, Hermano Agradezco Tu Cooperacion..pero La Verdad No Entiendo!.
|
ES DECIR, TENGO UN PROCEDURE QUE TIENE ESTO:
rocedure TTIPO_SERVICIO_FRM.DefineOrden(str :string);
var i : integer;
M : TSortMarker;
begin
i := 0;
// DM1.TIPOS_SERVICIOS.IndexName := 'ID_TIPO_SERVICIO';
while str <> Campos[i] do inc(i);
case orden[i] of
smNone : M := smDown;
smDown : M := smUp;
smUp : M := smNone;
else M := smNone;
end;
orden[i] := M;
end;
DONDE LE CAMBIO DE INDICES?