Acumular valores corretos sem uma tabela intermedi�ria

Question

Tenho um programa que vai somando valores de campos qdo sai do dbedit respectivo, acontece que se eu digito um valor errado e corrijo, ele n�o elimina o valor antigo e soma o novo valor. Obs.: eu preciso que este erro seja eliminado sem precisar usar uma tabela intermedi�ria!!!! :?:

Skywalker · Answer

caso voce esteja usando uma variavel para calcular o total da soma e simples voce pega o campo da tabela onde os dados somados estao sendo inseridos e manipula o evento dele OnSetText da seguinte forma

procedure TForm1.Seu_CampoSetText(Sender: TField, Text: String);
begin
Variavel_Soma:= Variavel_Soma - strtoint(Text);//estou supondo que o valor e inteiro
Seu_Campo.value:= Text;
Variavel_Soma:= Variavel_Soma + strtoint(Text);
end;

F�rum Acumular valores corretos sem uma tabela intermedi�ria #175723