delphi
procedure TForm1.SpeedButton3Click(Sender: TObject); var i: Integer; sum : Single; aux : String; arry : Array [0..255] of String; begin { Si no hay filas seleccionadas tiro un alert } if DBGrid2.SelectedRows.Count = 0 then ShowMessage('Debes seleccionar.') else begin { Sino, las recorro y guardo el valor del campo ID en un array } sum := 0; with DBGrid2.DataSource.DataSet do begin for i := 0 to DBGrid2.SelectedRows.Count +1 do begin GotoBookmark(Tbookmark(DBGrid2.SelectedRows[i])); aux := DBGrid2.columns[1].Field.AsString; arry[i] := aux; end; end; end; end;
y en este otro ejemplo me la selecciona pero no me nuestra el mensaje y no se si este bien
les agradesco su ayuda
delphi
var Inde:Integer; x: Integer; indice:Integer; i: Integer; begin indice:=DBGrid2.DataSource.DataSet.FieldByName('Predial').Index;//<--Obtengo el indice de la columna DBGrid2.SelectedIndex:=indice;// se lo asigno para que la seleccion pase a esa columna DBGrid2.SetFocus;// me aseguro que el dbGrid tenga el foco