Manipular filas selecionadas en un DBGrid

[Chogo]

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

[luisgutierrezb]

en la ayuda de delphi viene un ejemplo muy ilustrativo:


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;

[Chogo]

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

[Chogo]

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