Bueno, ahora si!
Ya probe y revise tablas y parece que ya no hay problema. Esto quedo asi:
Código Delphi
[-]procedure TDMSerie.ProcesaCadena(Str: string);
var
Acc: Double;
begin
if not TblCaptura.FieldByName('Suma').IsNull then
Acc := TblCaptura.FieldByName('Suma').Value
else
Acc := 0;
with TblCaptura do
begin
Append;
FieldByName('hfCaptura').Value := Now;
FieldbyName('ID').Value := MidStr(Str,1,1);
FieldByName('Valor').Value := MidStr(Str,3,7);
FieldByName('Suma').Value := (StrToFloat(MidStr(Str,3,7)) + Acc);
Post;
end;
DataCnx.ConsultaTotales;
end;
Se siguen aceptando sugerencias!!
Gracias!