ActiveDelphi

[israelpinheiro]

Tenho um banco de dados Paradox com quantidade, produto, unitário e total... óbvio que o total se dá pela multiplicação da quantidade pelo preço unitário... então chego ao valor total daquele item até aí sem problema... quero fazer com que os totais sejam somados me gerando um total geral.... por favor...
Atenciosamente

Israel
_________________
Israel Pinheiro
"Somos muito mais que vencedores em Cristo Jesus"

[Sufolk]

Ola Israel ....vc pode fazer o seguinte
var
ftotal : float;
begin
ftotal := 0;
with table do begin
// posicionando no primeiro registro de table
first;
// percorrendo sequencialmente os registros da tabela table enquanto nao for final
// de arquivo
while not eof do begin
// somando o valor anterior de ftotal + o total que está na table
ftotal := ftotal + FieldbyName(\'nome_campo_total\').asFloat;
// deslocando a para o próximo registro
next;
end;
end;
Edit1.text := FormatFloat(\'#0.00\', ftotal);

pelo q entendi era isso