クライアントデータセットで計算フィールドと内部計算フィールドを再計算する方法

Question

私はClientDatSetに2,のフィールドがあります。 CDSはどのプロバイダにもリンクされていません。代わりに、その場で満たされています。 CDSに「計算可能な」すべてのフィールドを再計算させるにはどうすればよいですか？ Refresh()にデータを更新するプロバイダがないため、私は電話することができません。私が今までに来た唯一の方法は、すべてのレコードをナビゲートすることです。これは最善の方法ではありません。

PS：私はthis questionとthis postを読んでいますが、私はよりエレガントな方法を望んでいます。

Answer 1

ヘルパー（これは必要に応じて削除されています）を使用すると、保護されたメソッドをハックすることなく呼び出すことができます。 fCInternalCalcフィールドのOnCalcFields内にあるDataSet.State = dsInternalCalcを確認してください。

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)