Problemas con un acumulador?

[andres1569]

Hola:

Lo que ocurre es que la variable TotalPeso la declaras de forma local, dentro de ese procedimiento, y por lo tanto se crea y se destruye durante la ejecución del mismo, y no sirve para acumular cantidades que quiereas tener al volver a llamar a dicho procedimiento.

Para que funcione adecuadamente, debes declararla de forma global, o bien en una claúsula var fuera de cualquier procedimiento / función, o bien, si estás trabajando en un formulario / DataModule, dentro de la declaración del mismo:

Var
  TotalPeso : Integer;

// llamar este procedure al empezar cualquier cálculo de acumulados
procedure TForm1.InicializaValores;
begin
   TotalPeso := 0;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  TotalPeso:=TotalPeso + Datamodule2.TotalesTrakingSalidaTotalPeso.Value;;
  Carga.CurrencyEdit6.Value:= TotalPeso ;
End; // Fin del procedimiento..