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

delphi tclientdataset
Jørn E. Angeltveit picture Jørn E. Angeltveit · May 26, 2011 · Viewed 8.1k times · Source

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?

Answer

Sertac Akyuz picture Sertac Akyuz · May 26, 2011

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.

Related questions

How can I add fields to a clientdataset at runtime?

I have a TClientDataSet, which is provided by a TTable’s dataset. The dataset has two fields: postalcode (string, 5) and street (string, 20) At runtime I want to display a third field (string, 20). The routine of this field is getting the …

Read More
Error:the filename directory name or volume label syntax is incorrect, in Delphi 7 CopyFile Function

I want to copy files from one folder to another using CopyFile function. The source files paths are stored in a ClientDataSet called "itemsDB". The code is : Var Source, Dest : String; Begin itemsDB.First; While Not itemsDB.EOF do Begin …

Read More
How can I delete all the records from a TClientDataset at once?

Is possible delete all the records from a TClientDataset at once?

Read More