كيف أحسب مجموع في حقل من Dbgrid

[Anter2010]

PHP كود :

procedure TForm1.btn1Click(Sender: TObject);
var 
  i: Integer; 
  sum : currency;
begin
  ds2.Active := true;
  sum := 0;
  for I := 0 to ds2.RecordCount - 1 do
  begin
    sum := sum + ds2.Fields[4].AsInteger;
    ds2.Next;
  end;
  edt1.Text := FormatFloat('0.00',(sum));
end;

procedure TForm1.ds2CalcFields(DataSet: TDataSet);
begin
ds2.FieldByName('Montant').AsCurrency:=
ds2.FieldByName('Prix').AsCurrency *
ds2.FieldByName('Qte').AsFloat;
end;

end. 


ابسط شيئ اعرفه اخي لا حرج