Подскажите пожалуйста!!!
Нужна следующая функциональность:
Есть Grid (например DBGrid или EhDBGrid).
Необходимо, чтобы при выделении пользователем некоторых записей, высвечивалась сумма из конкретного столбца, этих записей.
P.S. помогите, никаких вариантов

Здравствуйте, McCyM, Вы писали:

MCM>Подскажите пожалуйста!!!
MCM>Нужна следующая функциональность:
MCM>Есть Grid (например DBGrid или EhDBGrid).
MCM>Необходимо, чтобы при выделении пользователем некоторых записей, высвечивалась сумма из конкретного столбца, этих записей.
MCM>P.S. помогите, никаких вариантов

function GetAmount: integer;
var iRecNo: integer;
    iRow: integer;
begin
  Result := 0;
  if DBGrid.SelectedRows.Count > 0 then
    with DBGrid.DataSource.DataSet do
      begin
        DisableControls;
        iRecNo := RecNo;
        for iRow := 0 to DBGrid.SelectedRows.Count - 1 do
          begin
            GotoBookmark(Pointer(DBGrid.SelectedRows.Items[iRow]));
            Result := Result + FieldByName('FieldName').AsInteger;
          end;
        RecNo := iRecNo;
        EnableControls;
      end;
end;