Manipular filas selecionadas en un DBGrid
 

Estoy usando Delphi 7 y el DBGrid. este tiene una columna llamada total y otra llamada codigo (el codigo del producto en un detalle de factura).

Tengo las propiedades dgRowSelect y dgMultiSelect con valor True. Esto es para que el usuario pueda selecionar varias filas en el DBGrid.

Lo que quiero hacer es calcular el total sumando todos los registros que selecciono el usuario. Basicamente es saber que registro tiene selecionado el usuario en el DBGrid

en la ayuda de delphi viene un ejemplo muy ilustrativo:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  i, j: Integer;
  s: string;
begin
  if DBGrid1.SelectedRows.Count>0 then
    with DBGrid1.DataSource.DataSet do
      for i:=0 to DBGrid1.SelectedRows.Count-1 do
      begin
        GotoBookmark(pointer(DBGrid1.SelectedRows.Items[i]));
        for j := 0 to FieldCount-1 do
        begin

          if (j>0) then s:=s+', ';
          s:=s+Fields[j].AsString;
        end;
        Listbox1.Items.Add(s);
        s:= '';
      end;
end;

Gracias por tu pronta ayuda, estudiare este ejemplo y luego dire que resulto.

Muchas Gracias me funciono perfecto.:)
Solo lo adapte a mi programa