حساب عمود في Dbgrid و إظهار النتيجة في Edit

اخي اين الموضوع المعدل منك

لاستطيع مساعدتك

تفضل اخى الفاضل

procedure TForm1.IBDataSet1AfterOpen(DataSet: TDataSet);
var
  bm: TBookmark;
  Total: real;
begin
  bm := IBDataSet1.GetBookmark;
  IBDataSet1.DisableControls;
  try
    Total := 0.0;
    IBDataSet1.First;
    while not IBDataSet1.Eof do
    begin
      Total := Total + IBDataSet1COST.AsCurrency;
      IBDataSet1.Next;
    end;
  //   Total:= format
    Edit1.Text := (FormatFloat('0.000  جنية', Total))   ;
  finally
    IBDataSet1.GotoBookmark(bm);
    IBDataSet1.EnableControls;
  end;