How is it possible to manually execute the "OnCalcFields" event?

Question

Say that I temporarily want to disable the OnCalcFields event (eg. by setting cdsCalcFields := nil) during a time-consuming operation on a TClientDataSet. How can I tell the TClientDataSet to perform a recalculation of the calculated fields when I re-attach the OnCalcFields method?

Another situation that might require a manual recalculation is the situation where some of the calculated fields are depending on other datasets (eg. a calculated field is used to temporarily hold some aggregated value from the other dataset). This would work fine in most cases because the OnCalcFields events are executed often enough to get the correct value from the other dataset. But in some circumstances a recalculation is necessary to obtain the correct value from the other dataset.

Setting the AutoCalcFields property to False might also get you into some situation where a manual recalculation is desired.

I've seen several explanations on how to reduce the execution of the OnCalcFields event, but I can't find a simple way to just perform a recalculation...

Any suggestions?

It seems that your question is wrong. You don't want to execute this OnCalcFields event. Instead you appear to want to recalculate the fields. Thus my rather daft answer, now deleted. — David Heffernan, May 26 '11 at 11:02
@David - Perhaps I'm the one who misunderstood... Now thinking about it, it is even not evident if the re-calc is requested on only one record or the whole recordset. — Sertac Akyuz, May 26 '11 at 11:07
@David, I guess you're right on the formulation part. But the only place to assign values to the calculate fields is in the `OnCaldFields` event. — Jørn E. Angeltveit, May 26 '11 at 11:08
@Sertac: My main concern is on the active record, so @David's answer was relevant indeed. — Jørn E. Angeltveit, May 26 '11 at 11:12
@David - Considering @Jorn's comment you might like to undelete your answer. — Sertac Akyuz, May 26 '11 at 11:14
@Sertac I think I'll leave it deleted. I don't know anything about the data side of things. I do know how to fire events, and so, whilst my answer covers the question as asked, I don't feel too comfortable with it. — David Heffernan, May 26 '11 at 11:17

Sertac Akyuz · Accepted Answer · 2011-05-26T11:18:02.577

6

Calculated fields are calculated when records are retrieved from the database, so call Refresh (or Close -> Open) on the dataset to force a re-calculation.

(Regarding the comments on the question), to force a re-calculation on only one record you can call RefreshRecord on the dataset. If the particular dataset descendant does not implement the method, an Edit followed by a Cancel call would achieve the same.

edited May 26 '11 at 11:18

answered May 26 '11 at 10:52

Sertac Akyuz

54,131
4
102
169

I think the `cds.Edit; cds.Cancel;`-combination is the solution closest to what I'm looking for. The `Refresh`-methods involves a re-read from the underlying DB, and that is not preferable. – Jørn E. Angeltveit May 26 '11 at 12:35
2

@Jorn - The `Cancel` method synchronizes with the database so it involves a re-read. The only possible solution not involving a data retrieval I can think of, involves a call to a protected method: `THackCDS(cds).GetCalcFields(cds.ActiveBuffer);` where `THackCDS=class(TClientDataSet)`. I'm not putting this into the answer since I haven't done enough testing. – Sertac Akyuz May 26 '11 at 15:57

score 2 · Answer 2 · answered Dec 06 '11 at 17:26

Calling Refresh or Close-> can cause the entire table to reload from the database. If this isn't something you want you can just call the OnCalc method your self passing it the CDS. Though you may have to slide the cursor manually.

with DisplayAcctListCDS do begin
  First;
  while not Eof do begin
    Edit;
    DisplayAcctListCDSCalcFields(DisplayAcctListCDS);
    Next;
  end;
end;

Assuming DisplayAcctListCDS is your TClientDataSet with calculated fields and DisplayAcctListCDSCalcFields is the generated event method for OnCalcFields.

+1 - I don't think that I would use this in a "general" case, but it worked as a private method in a TDataSet descendent very nicely. — Hobo Joe, Oct 24 '14 at 18:17

score 0 · Answer 3 · answered Sep 17 '17 at 12:11

0

This is a bit of a hack, but 100% of answer on this qestion for me!

DBGrid.Height := 30; 
DBGrid.Height := 200; // Refresh all Rows after first
CalculatedProc(DataSet); // Refresh first calculated fields. (Write name of your calculate procedure)

answered Sep 17 '17 at 12:11

Ivan Ko

9
2

Why don't you call "refresh" if you want to refresh all rows? – Sertac Akyuz Sep 17 '17 at 14:32
Refresh reload data from server. – Ivan Ko Sep 17 '17 at 16:28
And where do you think the record buffer is retrieved when you increase grid's height? – Sertac Akyuz Sep 17 '17 at 19:29
When the window of grid is redrawn, the calculated fields are recalculated – Ivan Ko Sep 19 '17 at 05:08
The code in your answer reloads data from server. So it's better to call "refresh". One obvious advantage in using "refresh" is it doesn't need a grid. – Sertac Akyuz Sep 19 '17 at 08:55

How is it possible to manually execute the "OnCalcFields" event?

3 Answers3

Linked