somando campos no ClientDataSet

Delphi

27/06/2008

bom dia a todos,

Tenho um ClientDataSet com os campos valor1, valor2, valor3 inseridos no Fields Editor. E gostaria de somar esses campos e apresentar o valor em um edit.

Alguém sabe me ajudar??

Fico muito Grato


Ricklorente

Ricklorente

Curtidas 0

Respostas

Altingon

Altingon

27/06/2008

No evento oncalcfields vc pode colocar:
edit1.text := floattostr(valor1.value, valor2.value, valor3.value);

Espero ter ajudado


GOSTEI 0
Ricklorente

Ricklorente

27/06/2008

Infelizmente dessa maneira não deu muito certo.

ele me dá a msg: ´Too many actual parameters´.

Peço desculpa e vou tentar me explicar melhor.

Eu preciso na verdade somar 15 campos e não três e queria saber se existe alguma propriedade que some todos os campos no fields Editor do ClientDataSet para não ter que somar valor1+valor2+valor3...etc

Se não existir qual a maneira mais prática que vcs recomendam para somar todos os campos para um iniciante como eu???


GOSTEI 0
Altingon

Altingon

27/06/2008

Ou assim

var
  soma:real;
IBQuery1.First;
repeat
   soma := campo1.value + campo2.value +campo3.value + etc;
   IBQuery1.Next;
until IBQuery1.Eof;
Edit1.text := floattostr(soma);


espero ter ajudado


GOSTEI 0
POSTAR