حساب مجموع قيم في dbgrid

[hanipino]

live05 على الاقل حاول واطرح محاولتك .
هذه محاولة اكتبها فى الحدث CellClick ل DBGrid

PHP كود :

const
 {$J+}
  FirstPos : Integer = -1;
  LastPos  : Integer = -1;
 {$J-}
var
  I: Integer;
  SumValue: Integer;
  X, Y: Integer;
begin
  if Column.Field.DataType <> ftInteger then
  Exit;

  SumValue := 0;
  if FirstPos = -1 then
    FirstPos := Column.Field.DataSet.RecNo
  else
  LastPos := Column.Field.DataSet.RecNo;
  if (FirstPos <> -1)and(LastPos <> -1) then
  begin
    X := Math.Min(FirstPos, LastPos);
    Y := Math.Max(FirstPos, LastPos);

    Column.Field.DataSet.RecNo := X;
    for I := 0 to (Y - X) do
    begin
      SumValue := SumValue + Column.Field.AsInteger;
      Column.Field.DataSet.Next;
    end;
    Column.Field.DataSet.RecNo := Y;
    ShowMessage('Sum For '+IntToStr(Y - X + 1) + ' Record = ' +IntToStr(SumValue));
    FirstPos := -1;
    LastPos := -1;
  end;
end;