OnCalcFields導致StackOverflow

Question

使用Delphi 2005，我有一個TwwDBGrid（InfoPower），允許用戶選擇零件數量來生成報價。部分選擇過程是允許用戶爲由DiscountAmount和DiscountType組成的每個部分添加折扣。 DiscountAmount是折扣金額，DiscountType是折扣金額類型（折扣，折扣或平價）。這些數據保存在一個名爲ClientDataSetParts的ClientDataSet中。

在OnCalc方法（ClientDataSetPartsCalcFields）中，我有以下代碼將根據零件成本和任何折扣重新計算TotalPrice。 RangePricing在其中一個價格是基於數量的範圍內（即，1-100 = $ 100 101-200 = $ 150等）內計算的情況下使用：

procedure TfrmCustom_Services.ClientDataSetPartsCalcFields(
    DataSet: TDataSet); 
begin 
    inherited; 
    // if part is selected then calculate Total 
    if (ClientDataSetPartsSelected.Value) then begin 
    // if range pricing is defined 
    if (ClientDataSetParts.FieldByName('RangePricing').AsBoolean) then begin 
     ClientDataSetParts.FieldByName('TotalPrice').Value := 
      ClientDataSetParts.FieldbyName('UnitPrice').Value; 
    // otherwise use regular pricing 
    end else begin 
     ClientDataSetParts.FieldByName('TotalPrice').Value := 
      ClientDataSetParts.FieldbyName('UnitPrice').Value * 
      ClientDataSetParts.FieldByName('Quantity').Value; 
    end; 

    // otherwise clear the Total 
    end else begin 
    ClientDataSetParts.FieldByName('TotalPrice').Clear; 
    if (ClientDataSetParts.FieldByName('Quantity').Value <> null) then 
     ClientDataSetParts.FieldByName('Quantity').Clear; 
    if (ClientDataSetParts.FieldByName('DiscountAmount').Value <> null) then 
     ClientDataSetParts.FieldByName('DiscountAmount').Clear; 
    if (ClientDataSetParts.FieldByName('DiscountType').Value <> null) then 
     ClientDataSetParts.FieldByName('DiscountType').Clear; 
    end; 

    // Update totals if Discount is applied 
    // Only recalculate if both discount value and type are applied 
    // otherwise will constantly get errors when switching fields 
    if ((ClientDataSetPartsDiscountAmount.Value > 0) and (ClientDataSetPartsDiscountType.Value <> '')) then begin 
    case StringToCaseSelect((ClientDataSetPartsDiscountType.Value), ['% Disc','$ Disc','Price']) of 
     0 : 
     begin 
     ClientDataSetParts.FieldByName('DiscountDollarAmount').Value := 
      ClientDataSetParts.FieldByName('TotalPrice').Value * (ClientDataSetParts.FieldByName('DiscountAmount').Value/100); 
     ClientDataSetPartsTotalPrice.Value := ClientDataSetPartsTotalPrice.Value - (ClientDataSetPartsTotalPrice.Value * (ClientDataSetPartsDiscountAmount.Value/100)); 
     end; 
     1 : 
     begin 
     ClientDataSetParts.FieldByName('DiscountDollarAmount').Value := ClientDataSetPartsDiscountAmount.Value; 
     ClientDataSetPartsTotalPrice.Value := ClientDataSetPartsTotalPrice.Value - ClientDataSetPartsDiscountAmount.Value; 
     end; 
     2 : 
     begin 
     ClientDataSetParts.FieldByName('DiscountDollarAmount').Value := 
      ClientDataSetPartsTotalPrice.Value - ClientDataSetPartsDiscountAmount.Value; 
     ClientDataSetPartsTotalPrice.Value := ClientDataSetPartsDiscountAmount.Value; 
     end; 
    end; 
    end; 

end; 

問題是當我嘗試計算DiscountDollarAmount（折扣的實際美元數字，我必須通過API返回到外部來源）。每次我設置ClientDataSetParts.FieldByName（'DiscountDollarAmount'）。值時，ClientDataSetPartsCalcFields被再次調用，導致無盡的調用並最終導致堆棧溢出。

如何在不遞迴調用ClientDataSetPartsCalcFields的情況下更新此值？

Answer 1

您正在進入的無限循環是由代碼更改值，看到它已更改並重新啓動更改（如您已知）所致。爲了解決這個問題，在過程開始時，將OnCalc事件設置爲零，然後在最後重新設置該過程。這樣，事件監視將在實際處理期間暫停，然後在處理完成後恢復並分配新值。

Answer 2

此行爲是您修改非計算字段時發生的情況。 OnCalcFields事件不應對非計算字段進行任何修改。

我對數據庫結構一無所知，但如果我的預感是正確的，那麼您正在修改OnCalcFields事件處理程序中的某個非計算字段。而且，由於您修改了非計算字段，因此需要重新計算計算的字段。因此調用OnCalcFields。其中修改了非計算字段。而且，好吧，你可以看到這是怎麼回事！