Need help to add(sum) cells in dataset 1

[Koos50]

Hi Everyone,

I am new to the Forum. I also started getting interested in Delphi Programming at a quite late stage of my life.

I need help please : I have a Paradox database with 5 fields - 30d,60d,90d,120d & Total outs. I used DBEDIT boxes on a form to display first 4 fields/ client. How do I add(sum) the first 4 field cells in the row to display as dbedit or Label for Total outs.

I would appreciate any code or effort to help.

Thank you very much

 

[DelphiAaron]

this is from memory, should be correct.

Label1.Text := IntToStr(Table1.FieldByName('30d').AsInteger + Table1.FieldByName('60d').AsInteger + Table1.FieldByName('90d').AsInteger + Table1.FieldByName('120d').AsInteger);

Aaron

 

[Koos50]

This worked one shot !!! The only problem I now have is that the label.caption displays the summed currency result as rounded and not as a 2 decimal figure for the currency I used.

Please help me to fix.

Thank you

 

[martinm]

Try FloatToStr instead of IntToStr and .AsFloat not .AsInteger

 

[Koos50]

Thank you very much martinm. Excellent!!! This solved my problem.

Thanks again.