Somar Campos De Uma Query

[hencker]

Eu tenho uma query que busca no meu banco de dados todos as notas emitidas em um dado período. Como eu faço o meu programa somar o valor de todas esses registros um a um (pois preciso calcular a comissão dada sobre o valor)?

[Progr'amador]

Ola hencker,

Assim é meio dificil entender, poderia da um exemplo de como seria esse resultado.

Abs. Progr'amador.

B)

[hencker]

Por exemplo:

with DMRelatos do
begin
        QBase.Close;
        QBase.SQL.Clear;
        QBase.SQL.Add('SELECT * FROM DIPROTOCOLO WHERE ProtocoloData > 31/5/2005 AND DistribuicaoCartorio = "TabeliÒo de Protesto de Letras e TÝtulos" AND TituloNaturezaAbr="DMI"');
        QBase.Active := True;
end;
QRDMIQnReg.Caption := IntToStr(DMRelatos.QBase.RecordCount);
//até aqui eu fiz

Agora fazer algo assim:

DMRelatos.Qbase.First

ENTQUANTO NÃO EOF FAÇA

valor = valor + CAMPO.DO.BANCO.RELACIONADO.COM.O.VALOR (aqui eu tenho um dos problemas, meu delphi não está aceitando que eu declare uma variavel como Float;)

FIM DO FAÇA;

DMRelatos.Qbase.Next;

Entendeu??? Meu maior problema é que eu não consigo declarar nada como Float, o delphi não entende Float... C têm alguma idéia???

[Churc]

tipo, o delphi não reconhece o tipo Float... exemplo

var

valor: Float;

um ponto flutuante é do tipo Double, que voce pode usar também

a definicao de Real ou Currency

então seria

var

valor: Real; //ou Double, ou Currency

begin

...

valor := valor + CAMPO.DO.BANCO.RELACIONADO.COM.O.VALOR;

[Progr'amador]

Olá hencker,

você pode fazer essa soma diretamente na Query.

with DMRelatos do
begin
        QBase.Close;
        QBase.SQL.Clear;
        QBase.SQL.Add('SELECT Sum(CAMPO) as CAMPO FROM DIPROTOCOLO WHERE ProtocoloData > 31/5/2005 AND DistribuicaoCartorio = "TabeliÒo de Protesto de Letras e TÝtulos" AND TituloNaturezaAbr="DMI"');
        QBase.Active := True;
end;

ou então usando a while:

with DMRelatos do
begin
        QBase.Close;
        QBase.SQL.Clear;
        QBase.SQL.Add('SELECT * FROM DIPROTOCOLO WHERE ProtocoloData > 31/5/2005 AND DistribuicaoCartorio = "TabeliÒo de Protesto de Letras e TÝtulos" AND TituloNaturezaAbr="DMI"');
        QBase.Active := True;

        while not QBase.EOF do begin
           Valor := Valor + QBase.FieldbyName('Valor').value;
           QBase.Next;
        end;
end;

Abs. Progr'amador.

B)