Как заставить Client DataSet пересчитать расчетные и внутренние расчетные поля?

Question

У меня есть ClientDatSet с несколькими полями fkInternalCalc. CDS не связан ни с одним провайдером; вместо этого он заполняется на лету. Как я могу заставить CDS пересчитать все «исчисляемые» поля? Я не могу позвонить Refresh(), потому что у вас нет провайдера для обновления данных. Единственный способ, с которым я пришел, заключался в том, чтобы перемещаться по всем записям, что не самый лучший способ.

PS: Я прочитал this question и this post, но я надеюсь на более элегантный способ.

Answer 1

Я достигаю этого с помощью вспомогательного помощника (отделяется здесь до необходимого), что позволяет вызывать защищенные методы без каких-либо взломов. Обязательно проверьте на DataSet.State = dsInternalCalc внутри полей OnCalcFields для полей fkInternalCalc.

type 
    TClientDataSetHelper = class helper for TClientDataSet 
    public 
    function AssureEditing: Boolean; 
    procedure InternalCalc; 
    end; 

function TClientDataSetHelper.AssureEditing: Boolean; 
begin 
    result := not (State in [dsEdit, dsInsert]); 
    if result then 
    Edit; 
end; 

procedure TClientDataSetHelper.InternalCalc; 
var 
    needsPost: Boolean; 
    saveState: TDataSetState; 
begin 
    needsPost := AssureEditing; 
    saveState := setTempState(dsInternalCalc); 
    try 
    RefreshInternalCalcFields(ActiveBuffer); 
    finally 
    RestoreState(saveState); 
    end; 
    if needsPost then 
    Post; 
end; 

Это может быть легко расширена для обычных расчетных полей с помощью CalculateFields. Хотя это не обязательно, поскольку расчетные поля пересчитываются всякий раз, когда меняется любое другое поле данных.

Answer 2

Это немного взломанный, но он работает!

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