Recorrer base de datos registro por registro

[marcoszorrilla]

Sin entrar en detalles has inicializado el "edit1" convenientemente.

Código Delphi [-]
 procedure TFrmBitacora.Button2Click(Sender: TObject);
var importe1:double;
    importeT:variant;
begin

Edit1.Text:='0';

importeT:=edit1.Text;
   dm.TbBitacora.First;//nos colocamos en el 1 registro
   while  not dm.TbBitacora.Eof do
      begin
      importe1:= dm.TbBitacora.FieldByName('importe').AsFloat;       importeT := importeT + importe1;
      edit1.Text := (importeT);
  
dm.TbBitacora.Next; //pasar al siguiente registro
 
end;

Un Saludo.

[Goyo]

ya lo hice como me dijiste que me faltaba solo igualar a cero "0" el Edit1.text, ahora el problemilla que tengo es que ahora la suma me la hace de todos los registros que hay en la tabla, para lo cual te muestro el procedimiento que aplico.. con la logica de hacerlo mientras no sea fin de archivo y NumeroVehiculo=NumeroVehiculo para que lo haga solo con aquellas claves que sean iguales...

Código Delphi [-]
procedure TFrmBitacora.Button2Click(Sender: TObject);
var importe1:variant;
    importeT:variant;
begin
  Edit1.Text:='0';
  Edit2.Text:='0';
  importeT:=edit1.Text;
  importe1:=edit2.text;
  dm.TbBitacora.First;   //nos colocamos en el 1 registro
  while  ((not dm.TbBitacora.Eof) and (dm.TbBitacoraNumeroVehiculo.Text = dm.TbBitacoraNumeroVehiculo.Text)) do
      begin
      importe1:= DM.TbBitacora.FieldByName('importe').AsFloat;
      importeT := importeT + importe1;
      edit1.Text := (importeT);
      edit2.Text := (importe1);
      dm.TbBitacora.Edit;
      dm.TbBitacoraImporteTotal.AsFloat := importeT;
      dm.TbBitacora.Next; // brincamos al siguiente registro
  end;
end;

[marcoszorrilla]

Este método con un archivo muy grande sería totalmente ineficiente, lo lógico sería tener un índice por el campo en cuestion.
1.- Activar el índice.
2.- Buscar la primera ocurrencia
3.- Comenzar un ciclo mientras las siguientes ocurrencias coincidan.

Al estar indexado cuando no coincidan es que no hay más y así solo se recorren los registros que hay que sumar.

Un Saludo.