Recorrer una Dataset hacia atras

[IVAND]

Gracias Marcos por tu respuesta, funciona perfecto , pero cuando el locate salta y encuentra el registro se sale del bucle , se puede guardar una posicion dentro de la busqueda y luego volver a esa posicion despues del locate ?

Código Delphi [-]
rx.Last;
While Not rx.Bof do
  begin
    nume := Length(Trim(rx.fieldByname('codigo').value));
    saldo := Saldo + Rx.FieldByName('Saldo').Value;
        rx1.insert;
        rx1.fieldbyname('codigo').value:=rx.fieldByname('codigo').value;
        rx1.post;

    for X := Nume - 1 downto 1 do   //Paso 2 
    begin
       //Enceramos cuando llegamos al principio
      if x = 0 then
        Saldo := 0;
      J := Copy(Trim(rx.fieldByname('codigo').value), 1, X);
      if rx.Locate('codigo', j, []) then
      begin
        saldo := Saldo + Rx.FieldByName('Saldo').Value;
        Rx.Edit;
        Rx.FieldByName('Saldo').Value := saldo;
        rx.Post;
      end;
    end;
    Rx.prior; //Tomaria un registro y subiria al proximo en el paso 2 y asi sucesivamente 
  end;

Gracias por sus comentarios

[marcoszorrilla]

Para volver a una posición dentro de un Dataset puedes utilizar un BookMark.

Ejemplo de uso.

Código Delphi [-]
procedure TfrPVP.spbCambiarClick(Sender: TObject);
var
s1,s2:String;
begin
  Try
  s1:=DmPrix.IBDtsProveeCODIGO.Value;
  s2:=Copy(DmPrix.IBDtsPVPCODIGO.Value,4,7);
  DmPrix.IbDtsPVP.Edit;
  DmPrix.IBDtsPVPCODIGO.Value:=s1+s2;
  EdProvee.Text:=DmPrix.IBDtsProveeNOMBRE.Value;
  
  spbCambiar.Visible:=False;
  Donde:=DmPrix.IBDtsPVP.GetBookmark;
  Actualizar_Codigo_Proveedor();
  ShowMessage('Atención:El código de Proveedor se cambio con éxito.');
  Except
  ShowMessage('Atención: Se produjo un error al intentar cambiar el Código del Proveedor del producto.');
  end;
DmPrix.IBDtsPVP.Open;
DmPrix.IBDtsPVP.GotoBookmark(donde);
end;

Un Saludo.

[IVAND]

Gracias muy amable por tu tiempo

ya esta listo lo que queria gracias a todos