?
Solved

sum up some tablefields and build chart

Posted on 2000-02-16
4
Medium Priority
?
148 Views
Last Modified: 2010-04-04
hi, im a learner of delphi at the moment and wrote a small application. in this app. i have a table with numeric values. what im trying to do now is sum up a few of this values and automatically build a chart with these sums and then store the chart under a certain name. i tried several queries with sum but none worked. i hope u can help me find a solution, thx
0
Comment
Question by:ugross
  • 2
  • 2
4 Comments
 
LVL 12

Expert Comment

by:rwilson032697
ID: 2530100
You can sum a field in a table like this:

select sum(Afield) as FieldSum from ATable where ATable.AnotherField = 42

Cheers,

Raymond.
0
 

Author Comment

by:ugross
ID: 2530110
hi, sounds pretty simple and ok will try it, do u have any idea how to put these value straight into a chart. cheers

0
 
LVL 12

Accepted Solution

by:
rwilson032697 earned 300 total points
ID: 2530124
You can so this using a TChart (in the additional tab).

Add one of these to a form, create an appropriate series and use code somethting like this to fill it in:

(This is a snip from my Mortgage Planning app where it creates a chart of interest and principal payments over time)

  for I := 0 to CurrentScenario.Payments.Count - 1 do
    begin
      TotalScenarioInterest := TotalScenarioInterest + CurrentScenario.payments[i].InterestPortion;

      ScenarioPrincipalSeries.AddXY(CurrentScenario.Payments[i].PaymentDate,
                                    CurrentScenario.Payments[i].PrincipalRemaining, '', clTeeColor);
      ScenarioInterestSeries.AddXY(CurrentScenario.Payments[i].PaymentDate,
                                   TotalScenarioInterest, '', clTeeColor);
    end;

Cheers,

Raymond.
0
 

Author Comment

by:ugross
ID: 2530135
thanks for this profund answers rymond, will try them, thou i think there must be something more simple. cheers and thx
0

Featured Post

Keep up with what's happening at Experts Exchange!

Sign up to receive Decoded, a new monthly digest with product updates, feature release info, continuing education opportunities, and more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Creating an auto free TStringList The TStringList is a basic and frequently used object in Delphi. On many occasions, you may want to create a temporary list, process some items in the list and be done with the list. In such cases, you have to…
Introduction Raise your hands if you were as upset with FireMonkey as I was when I discovered that there was no TListview.  I use TListView in almost all of my applications I've written, and I was not going to compromise by resorting to TStringGrid…
Exchange organizations may use the Journaling Agent of the Transport Service to archive messages going through Exchange. However, if the Transport Service is integrated with some email content management application (such as an anti-spam), the admin…
When cloud platforms entered the scene, users and companies jumped on board to take advantage of the many benefits, like the ability to work and connect with company information from various locations. What many didn't foresee was the increased risk…
Suggested Courses
Course of the Month13 days, 12 hours left to enroll

755 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question