Delphi DBGrid 计算金额和单价 - 灵活运用 OnCalcFields 事件

在 Delphi 中，可以通过事件处理来实现在 DBGrid 中计算金额或单价。 首先，在 DBGrid 的 OnCalcFields 事件中，可以使用以下代码来计算金额：

procedure TForm1.DBGrid1CalcFields(DataSet: TDataSet);
begin
  // 计算金额
  DataSet.FieldByName('Amount').AsFloat := DataSet.FieldByName('Quantity').AsFloat * DataSet.FieldByName('UnitPrice').AsFloat;
end;

其中，'Amount' 是金额字段，'Quantity' 是数量字段，'UnitPrice' 是单价字段。

如果想要在 DBGrid 中计算单价，可以使用以下代码：

procedure TForm1.DBGrid1CalcFields(DataSet: TDataSet);
begin
  // 计算单价
  if DataSet.FieldByName('Quantity').AsFloat <> 0 then
    DataSet.FieldByName('UnitPrice').AsFloat := DataSet.FieldByName('Amount').AsFloat / DataSet.FieldByName('Quantity').AsFloat;
end;

这样，在 DBGrid 的 OnCalcFields 事件中，根据需要选择计算金额或单价的代码即可。